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ABSTRACT 
THs Coen ne PART 1 OF THE DRIVE DIAGNOSTICS 
rt S "DRIVE Can Ot rare aes ee ee TESTS. 
FINALLY i . SK 
CTION L 


Ta HEP con perm sen 
PRAGA aerate di carom cae FORCING. 


RSA TS A lie Besusrige 1 ME oan 


TESTING IP oe ON A HIERARCHY APPROACH Ruy NG WITH 
prot LOGIC AND ING THRU D IC TESTING. THE 
STS WILL BE SMALL TO FACILITATE SCOPING LOOPS. 
#EEEECAUT IONS ERE 


HALTING THIS PROGRAM ANYWHERE BUT AT END OF A PASS, 
MAY LEAVE HEADERS IN THE DISK CARTRIDGE IN AN 
UNDETERMINED STATE. 






REGUIREMENTS 

HARDWARE 

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 
PDP-11 


CONSOLE TELETYPE 
MEMORY 


16K | 
RiOe UNIBUS CONTRUCLER (RK6L1) 


1 TO 8 RKOG ORIVES 
NOTES: 1. IF NEITHER KW1l-L OR P CLOCK IS USED ALL TIMING 
TS WILL of . aM at T 
ESINNING OF THE TESTS WILL CONFIRM THIS. 
2. THE PROGRAM CAN WORK OFF SITHER FORMATTED OR 
NON-FORMATTED PACKS. 
PRELIMINARY TESTING & PROGRAMS 
THE RK611 DISKLESS CONTROLLER DIAGNOSTICS. ‘ALL PARTS) SHOULD FIRST RUN SUCCESSFULLY. 
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PROGRAM CONSIDERATIONS 


PDP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED SY THE PDP-i1/04,05, 10,20, 
34,25,490,45,50, & 70. 


RS sel | STM atte Roth of ETRE LION SEL SET 5 oa TEST 


DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE “RK II. 


XXDP 
ne PROGRAM CAN BE CHAINED BY XXDP 8 WILL NOT OVERLAY THE 


CHAIN MODE OPERATION (MONITOR) 


1. ne INPUT DIALOGUE IS BYPASSED. 
ADDRESS & CONTROLLER INTERRUPT VECTOR IS 


2. 
z Bi eee ih THe “DRIVE PRESENT’ CONDITION WILL 


NOTE: THE DRIVE PRESENT CONDITION IS: 


Stat oe 


DUMP MODE OPERATION (MANUAL) 


1. INPUT DIALOGUE IF STARTED FROM 220. 
e. ye O CAN THE OPERATOR IS FIRST GIVEN 
A MESSAGE ae PACK IN DRO WITH A SCRATCH 
PACK & TYPE <CR> WHEN DONE. 








ACT/APT 

THIS PROGRAM IS ACT COP ATI. . IT IS APT 

COMPATABLE TO EXTENT THAT APT HOOKS WILL BE IN THE 
PROGRAM & WILL WORK THRU THE *UPTON INTERFACE’. 


FOR OTHER INTERFACES, APT MAY ONLY LOAD & START THE PROGRAM. 
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I.E. LORD & OUMP MODE. 
AUTOMATIC MODE (MONITOR? 


3: THE uss. aboress & ¢ C ROLLER INTERRUPT VECTOR IS 


3. RL DAV S IN THE "DRIVE PRESENT’ CONDITION WILL BE 
NOTE: THE DRIVE PRESENT CONDITION IS: 


8. CT PORT SELECTED 
‘ bat Loo OTE ON 


NOTE: SEVERAL APT CONSIDERATIONS ARE STILL TO BE DEFINED. 
DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 


a fe 


THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 
EQUIPED WITH DUAL MUST BE SWITCHED TO THE PORT UNDER 
TEST TO PREVENT CONTENTION WITH THE OTHER PORT. 


sae Oeteee WILL BE INCORPORATED IN A SEPARATE PROGRAM 


IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 


PARITY CHECK ENABLED 
Fe MRT AIA SEER. 5 


BAD SECTOR 
LL COMPARE DATA ERRORS WITH i“ BAD SECTOR 


BF Oe He SOT GD BSCTR IIE ADs A Ege ROUEN Br 
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EXECUTION TIME 

THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE POP 11/50. 
TOTAL TIME: S MIN, 30 SEC” 

A BREAKDOWN OF THE MORE LENGTHY TESTS ARE SHOWN SELOW: 


TEST ie TATI 16 CYLINOER ADDRESS & DIFF REGS-PART 2: f nN 15 SEC 


FROM CYL 0 TO ALL CYLINDERS «¢ Go Sec 
42 SEEK FROM CYL 410 TO ALL CYLINDERS : 40 SEC 


FAULT ISOLATION . 

FAULT ISOLATION WILL NOT FOR THE FIRST STAGE 
BUT WILL BE IRI BFPO SH RELEASE. 

ERROR CORRECTION AND FAILURE RATE ANALYSIS 

THIS PROGRAM WILL NOT DO ERROR CORRECTION OF FAILURE RATE 

ANALYSIS. . 


DEFAULT UNIBUS ADDRESSES & VECTORS 








THE FOLLOWING £5 -“ ‘Be Use & THEIR YORE e ee VECTORS 
OF +e SSES 
THEY CAN BE 
LOCATION DEFAULT CONTENTS 
1264 177440 
1334 1 
5 ioe 
l 17254 
i 172S44 
1776N6 
top 
hg oe Liss 177560 
TTY ATUS REG Lisp l 4 
ITY PRINTER ora i 77a 
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OPERATING PROCEDURE & CONTROL FUNCTIONS 


4.1 


4.1.1 


4.1.2 


4.1.3 


8.1.4 


HO1 


PROGRAM LOADING 

L F RT SING ST 
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
SUPPORTED BY XXDP. 
LOAD THE STARTING ADDRESS (SEE SEC 4.2). 


SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.93). 










SET DRIVES TO 3 TES N THE °LOAD® CONDITION & WITH THE 
APPROPRIATE PORT SELECTED 8 WRITE LOCK DISABLED. ORIVES 
NOT TO BE MUST HAVE BOTH PORTS DESELECTED. 

NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’ 
CORMAN. TF THE RUN/STOP SWITCH IS IN THE ’STOP’ 
POSITION. 

PRESS *START’ 

Me er an WILL IDENTIFY ITSELF AND WILL BEGIN 

(SEE 

Ts a 

THE PROGRAM 

WAS NOT AVA 

DRIVE AND 





STARTING LOCATIONS 


LOCATION 200 - STARTING aes. TO DEFAULT THE BUSS 
ADDRESS & CONTROLLER INTERRUPT VECT 
& TEST ALL DRIVES IN THE "DRIVE PRESENT’ 


CONDITION. 


' 
' 


I01 


NOTE: THE ORIVE PRESENT CONDITION IS: 


a. HE YL 
. co CT PORT LOROED 
' bt READY 1s ALD ON 
LOCATION 204 - SAME AS 200 START BUT BYPASS TEST 16 (N SQUARE) 


LOCATION 220 - > Rg aaC Fs TO Ook. BUSS AOSRESS B 


LOCATION 230 - SAME ed oe START BUT BYPASS TEST 16 (N SQUARE) 


-saoreentnany = TEER’ tie FOLLOWING Tes TES g: 


i. TEST 35 FORMAT PACK 
DECREMENT FROM CYL 410 TO 0 & READ HEADERS 


| 3: 
on. i: : TESt i SEEK FROM EYL 410 TO-ALL 
I re ue BYPASSING IS TO PROVIDE 


LOCATION 270 - SAME AS 260 START BUT BYPASS TEST 16 ALSO. 


IMPORTANT: FOR SREISS BE ne SEE XXDP, ACT/APT 
SECTIONS TONS 3. 2 8 3.3. 





SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 
SWITCH FUNCTION «° 
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4.3.1 


4.3.2 


4.3.3 


4.3.4 


4.3.5 


4.3.6 


4.3.7 


JOL 


SW< 15> 


BESEINE “Cutie? Restos howl SEL in or Boca 


SW< 14) 
Ts SOP AO MTEL. TN 18 RU Rt 


SW< 13) 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9). 


SW< 12> 
THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SW< 11> 

BACH TEST WILL BE Serer as toate + NORMALLY AFTER. THE 
SUT, 3 fH eo coses)SEETIAG Teg SMITON TAMIBITS 
SW< 10> 


RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


SW<09> 
THIS SWITCH af 2 THE TIGHTEST POSSIBLE SCOPE LOOP FOR 

, DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 
SW<08> 
THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS PER 


4.4 


4.5 


KO1 
Sade AA Behar TEC TEE is = 


THE PREVIOUS TESTS (1-14) WILL BE EXECUT 


*SOFTWARE’ SWITCH REGISTER 


RES PUR, "AER EGER Chet’ #81720 
TION Pe na (8). THE 


co Ace Ne Tes econ A’ ONTROL 6” G’. 


G’ AT ANY TIME EXCEPT 


The SOF Tua sult vi 20" AH ViUES BE ENTERED A “Bt OCTAL LRG INTERRUPT. 


SWR = NNNNNN NEW = 
EACH TIME SWITCH ae TTING ARE ENTERED, THE ENTIRE SWITCH 


ENTERED. DFP BRe HAT Be USED To 


ReSUInED,, SmueuUT ERRORS nena SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE Si TCH REGISTERS, THe 'SOFTWARE’ 
SWITCH REGISTER MAY BEY USED. B THE PROGRAR FINDS ALL 16 
SWITCHES IN THE UP’ POSITION, ALL SWITCH REGISTER REFERENCES 
WILL BE TO THE ’SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED 
ABOVE MUST BE FOLLOWED. 














INPUT DIALOGUE 


TAL WI TIVELY. _THE PROGRAM WILL 
DS PIMOSSUL R DUS ANTPMETIEL. DS CSRS 
THEN BE ENTERED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT 
BY A CARRIAGE RETURN. UNRECOGNIZED OR ILLEGAL RESPONSES WILL 
fren ce ae OLED BY THE PROPER RESPONSE MAY 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE xx0P, ACT/APT 
CONSIDERATIONS IN SECTIONS os, 283 







DRIVE SELECTION 
THE REQUEST WILL BE: 


4.5.2 


4.5.3 


LOl 
DRIVES TO BE TESTED: 


THE DEFAULT RESPONSE 1S CARRIAGE RETURN TO TEST ALL DRIVES 


THE TOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 
in, STED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE 


E.G. DRIVES TO BE TESTED: 1,2,4,6 
ORTON? CONSIDERATIONS IN SECTIONS 3.26 Sug.) 


BUS ADDRESS 
THE REQUEST WILL BE: 

TYPE IN BUSS ADDRESS IF NOT 177440 
THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS e220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNIBUS RKO& DRIVE DIAGNOSTIC 
MAINDEC-11-DZR6H-B-PB 
DRIVES TO BE TESTED: 1,3<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


— a ee ee eee mE ee - 
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WILL TEST DRIVES: 

; 

DRIVE 1 

(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


4.6 PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


UNIBUS RKO& DRIVE DIAGNOSTIC 
MAINDEC-11-DZRGH-B-PB 

WILL TEST DRIVES: 

I 

DRIVE 0 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. BBB 


DRIVE 1 


ORIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DOD 


END PASS #1 

eu TEST DRIVES: 

l 

DRIVE 0 

DARTRIDGE SERIAL NO. B88 
DRIVE 1 


——— ee 


5.0 


S.1 


5.2 


NO1 


END PASS # 2 
(ETC) 
THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE OF PASSES IS DETERMINED BY ACT/APT/XXDP 


CT: ES YSUSTINS  LELHERES. BE EP: 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 


GENERAL 
A. BASIC CONTROLLER TESTS, SIZING & SETUP 


N 
DEFAULTS TO TEST ALL THE DRIVES SEEN ON THE 
CHECKS THE postecs OF AN L OR P CLOCK 
TIMING TESTS. 


B. STATIC & CYCLE UP TESTS 
THESE TESTS CHECK OUT THE ABILITY TO SELECT & DESELECT 


THE DRIVE; TO DETECT PARITY, UNSAFE, AND FAULT CONDITIONS 
ITH THE DRIVE READY TO OPERATE BUT WITHOUT THE SPINDLE 


w 
aa] 
3 
4 
= 


THE ENTIRE POWER UP SEQUENCE IS TESTED BY VERIFYING ALL 
STATUS BITS SET/RESET IN PROPER SEQUENCE: THE BRUSH 

YCLE, TER LIMIT DETECTION, FORWARD, REVERSE, 
PIP...ETC STATUS BITS ARE CHECKED. 


C. SEEK, WRITE HEADER, READ HEADER TESTS 


THESE TESTS CHECK THE ABILITY OF THE DRIVE TO DO SEEKS, 
HEADER OPERATIONS & 20, 22 SECTOR FORMATTING. 


TEST DESCRIPTIONS 
LEKKLE LEER EE ERE REREA LE REE EERE REEL ELLA EEE EEE EERE LEE EEE EE EE EES 


TESTS, SIZING & SETUP 
titi titi tt tiitititiittitiititiitiititiitiititiititiittitite 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 


e+ es o--2 22 —e © +e ome © em me - 


TEST 2 


BO0e 

THIS TEST cane THAT ALL THE CONTROLLER REGISTERS 
an ata Me INST ITY ee a, 
aOR IN Tas fr rea "WIth RESULT IN. ALL OTHER 


SIZE THE BUSS 


EIIMER BY RUNNING IN THE ALTO RODE OR A E00 START IN THE 


cua me Se re 
I 

Be Sa a te ts be Ah 

VERIFY OPERATOR ORIVE SELECTIONS 

IIT. “IPR Ol a oor 


STC eee ine 



















TO See THAT THe ele re rout Bh TF MILL 
ee A ERROR 
Nae tee 
VERIFY It i WAS ae 


one ape 


AT SS PPG 
DRDY & ra IN RKMR2 ARE CHECKED TO BE 


FIND NEXT DRIVE TO BE TESTED 


eter FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
IN *ORVAD’ 


EY eke RT IH awe STO 


~—_ i -— «+ &» 


C02 


FLLLLSLELSLASSSLESELERLAESLERLLARALALELAERALAAERESASFSFASSLAELSES 


STATIC & CYCLE UP TEST 
LHLAERREARESERAGHEARLASEHRERESESELEREALRESRESAAPESELAEESESESRELES 


TEST & REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR3 


BLT 18 BE Seo 


Ute ELLE ne othr nes Stir Eo RE 


TEST 7 PRINT ORIVE SERIAL NUMBER 
THIS TEST & PRINTS THE DR mM. ce Bro sO, WORD 11 
IN DECIMAL 8 IS PERFORMED ON 

TEST 10 SET VV WITH PACK COMMAND 
IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 


TEST 11 RELEASE DRIVE 
TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK 
TEST 12 DRIVE TYPE TEST | 
THIS TEST COMPARES DRIVE TYPE IN MESSAGE A AGAINST *DDT’ IN RKDS. 
COT IN RKCS1 IS SENT & ERRORS ARE VERIFIED. | 


TEST 13 C-D PARITY ERROR DETECTION 


Go Te OTIS "ON RRL PARITY SENT BY 
Te Drive SHO. rperaTy 10 Th 0 THE THE CONTROLLER WHICH IS NOW 
et Fon EVEN SHOULD DETECT 


HE ERROR as BV 1S RESET WITH THE CLEAR COMMAND 


TEST 14 VERIFY START SPINDLE COMMAND 
THE PROGRAM CHECKS THE ENTIRE STARTUP SEQUENCE, IE: 


-—-« —— eee Oe ee Oe ee ee me ee ee ee Oe 8 ee ee ee ee OR = Oe 


. 
mee ee ee eae ee ee ee 


| DOe2 
BY -VERIEYING ALL RPPROPAIATE STATUS BITS FOR PROPER SEQUENCING. 
ISaE Ear he Blok Ne oleeE ME ORE 


RELELELLELLERLEEESREAESASR ELA LE RELEASE EEEEREREEE SERRE REE EEE EE EES 
SEEK/READ HEADER/WRITE HE T 
i He de Ae eg AEE gb 4g AE A dA EEE EEE A a A eH HEE EE 


TEST 1S STATIC CYLINDER DIFF AND CYLINDER ADDR REG TEST; PART 1 


me TEST a NOER ,DIFEERENCE 
Sona ni soins I SS Fo A, 
ae ant th Tie GIS HY gr OuS FoR "CHECKING. 
Seti tts S's REGS 


TEST 16 STATIC CYLINDER DIFF & CYLINDER ADDR REG TEST-PART 2 


THIS TEST CHECKS i ORIVE TO PROPERLY SET THE CYL 
mt & CYL ADDR RE ALL COMB ee BY SEEKING TO 


fr'iS"Peneorred tn HE Sate WER AS Tie ABOVE TEST 


TEST 17 HEAD REGISTER TEST 





2) 






THIS TEST CHECKS ABIL LITy T SELECT ALL HEADS (0,1 
VIA RKDA 8 POING 83 SY THE SELECT DRIVE CMD 
HEAD 3 IS SRODUE. IY . ADDR. 
INCE TO 
3 rere Ina SEEK I ey iY One WITH 
GAL AO + JE NOT THIS. S MEANS NG HEAD ADDRESSES 


TEST 20 SEEK TO CYLINOER 0 


Pr he ABILITY TO DO A SEEK COMMAND 
i WAS NO MOVEMENT 


TUR 627s VORP Jey cure, CeLeTIOn eigEN IO-LRUC, 





— a Oe eee we em rm mw er ee 8 eR ee SE we ee ee a 
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TEST 21 TEST SECTOR COUNT REG. FOR 22 8 20 SECTOR FORMAT 


TEST 22 DETECT OUTER LIMIT 


TERT rN. Pies i Lin a 3 oo Re eR LY POSITION ON CYLINDER O 


IN THIS TEST INDICATES: 
a. NOT ON CYLINDER 
AND/OR 6B. COULD NOT SEEK N REVERSE DIRECTION. 


TEST 23 READ HEADERS, ALL TRACKS, CYLINDER 0 


THIS TEST DOES NOT CHECK THE HEADERS, BUT ONLY THE FACT 
THAT | HEADERS CAN BE READ CORRECTLY BY CHECKING CERR & DTE. 


THIS TEST IS VALID ONLY IF THE PACK HAS NOT BEEN ZERO’D OUT. 


TEST 24 BASIC WRITE/READ HEADER & HEAD SWITCHING TEST 


Be Solna OF Cre on REGDIMG Back E VeRaPY Ine HEY fe NeD 
I.E. 


TRACK 0 ; O1OL. FOR qn ee HEADERS 
yee 4: QE ALL 1°S FOR ALL SECTOR HEACERS 
TEST 2S BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 


USING HEAD 0 20 SECTOR HEADERS BY WRITING ALL 
3, AS a ee O FIND SECTORS 20 8 21. VERIFY 


FINDING O° bg Re fe Previous Test. 


TEST 26 WRITE & READ HEADERS CYLINDER 0, HEAD 0 






TEST 27 SEEK FROM CYL 0 TO 1 & READ HEADERS 


15 RECEIVED FR Ae he SRT ret 13 1.5 bor eet STATUS AFTER RDY 


MOVING 8 THE CYL ag Is 1. 
AFTER ATTN IS RECEIVED, IS EXAMINED FOR ANY ERRORS. 
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CYL DIFFERENCE IN MSG Ae IS VERIFIED 70 BE 0 8 CYL ADDR 


ee —— Se ae Oe LL A A RE mw 


SE ee et ee ee -—= —-_-—-—.>« “= 
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G02 
IN MSG B2 IS VERIFIED TO BE 1. 
DIFFERENT FROM CYL © TO owt THAT FTE HEADS D TO ACTUALLY HOVE | 
TEST 30 WRITE & READ HEADERS CYLINDER 1, HEAT 0 


TEST 31 TEST RECALIBRATE ag $ READ HEADERS as sete 
THIS. TEST IBRATE 8 READS HEADERS. 
T VERIFIE TING HEADERS ON CYL 1 FROM THE PREVIOUS 
T BID NOT OVERMRITE CYL 0 HEADERS. 
AN ERROR IN THIS TEST INDICATES THAT HEADS: 


A. MOVED TO A CYL OTHER THAN 1 
OR B: DID NOT GET BACK TO CYL O 


TEST 32 SINGLE INCREMENT SEEKS TO CYL 410 — : 
DASSIEPOS FINE a RSENS SERS aH bem 
ha apdandepy ogg 
Bg PL a cra th 
(BSE) WILL 


tapers Biter ner 


ERENT OUTS. 
Be Et ot BE TYPED aye! re THAT 
THIS IS "DONE re NOT T TROY est INO es ALIGNMENT PACK BY WRITING 
THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
THIS IS THE FIRST TEST WHERE THE READ DATA COMMAND IS PERFORMED 











TEST 34 DETECT INNER LIMIT 


THIS TEST VERIFIES THAT THE LAST CYLINDER IN THE ABOVE 
TEST WAS 410 BY DETECTING INNER LIMIT AS THE ADJACENT CYLINDER. 


bee ee "ee = eS ee -- — s+ 


-—- A — A A A A A SS A 


S_ TEST port T IND atk, a HEADS WE 0 E CYL 410 
i Sart BE i alee 
INFO OR AN ae 
TIS A SEEKING OR LIMIT 


TEST 3S FORMAT PACK 

THIS BY FORMATS N TOR FORMAT 
pot I Mg Ores IN 22 SEC ORMAT BY 
16 “ilo WITH WRITE HEADER COMMANDS (ALL TRACKS). 
WILL BE READ IN THE NEXT TEST 

TEST 36 DECREMENT FROM CYLINDER 410 TO 0 & READ HEADERS 
THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY 
SINGLE CYLINDER INCREMENTAL SEEKS. 

TEST 37 SEEK FROM CYL 0 TO ALL MAJOR CYLINDERS & READ HEADERS 


THIS TEST SEEKS FROM CYL O TO ALL THE NAJOR CYLINDERS & READS HEADERS. 
IT THEN SEEKS CYL 0 & READS HEADERS. 


MAJOR CYLINDERS ARE: (DECIMAL) : 1 COCTAL) 
g 
5 


64 
128 
eS6 


585505" 


TEST 40 SEEK TO ALL CYLINDERS FROM 0 8 READ HEADERS 


TEST 41 SEEK TO ALL CYLINDERS FROM CYL 410 & READ HEADERS 


TEST 42 SEEK TO ALL KEY INVALID CYLINDERS 
THIS VERIFIES THAT "INV ADDR’ & ’SEEK INCOMPLETE’ IS 
DO NOT MOVE OR UNLOAD IF AN ILLEGAL 
CYLINDER IS SPECIFIED IN A SEEK. 


INVALID CYLINDERS ARE 411 THRU S11 (10) IE. 633 THRU 777 (8) 


Se ee ees eee 


6.0 


6.1 


6.2 


102 


THIS TEST CHECKS KEY INVALID CYLINDERS 411,412,416,448 8 460 


THE PROGRAM a NOT REQUIRE FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CASE. 


ANY TEST THAT FORMATTING IS FOLLOWED BY A 
cea TEST O PUY Tnose CYLINDERS nck’ To STAORRD 


ERROR REPORTING 


ERROR INTERPRETATION 


AND OPER ATA PERTAINING 0 ae Olen. 


CONTENTS OF THE OCORRESPORDING S REGISTERS AY THe THE Time OF 


RTT BP CSR GETING" ag 


ICAL 
a geet as 
on 


GIVEN WI A 
Poteet ee is 5 Ha 

















7 
A SINGLE 


Mx 
au 3 
25 


MESSAGES ARE 


NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 
ERROR PRINTOUT EXAMPLE 
MESSAGE AO ERROR 
AT END OF HEAD LOADING 


TEST NO. PC 
000014 O13432 
RKMR2 RKMRS RKER RKDS $RKCS1 RKCS2 


ES ee fee 


JO2 


140141 O90000 140101 O40e00 000101 
1$0341 








AFTER LIMIT DETECT 


T 


16 
RKER 
045720 1 2 000000 
120001 






RKDS  RKCS1 RKCS2 
040000 040200 000100 


0457, 
BAECS Bee PUREE ARR NBER 


™N THE 2ND EXAMPLE (MESSAGE B1) DID NOT READ BACK CORRECTLY 
WITH THE CORRECT AHOLD BE’ CONTENTS UNDER 'RKMR3’. 
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pe Bt De DRIVE DIDCNOS TT ENT at MACY11 27(732) O1-0CT-76 10:34 Seo 0001 


psa ae SWITCH SETTINGS 
Y OF all ae LOCATIONS 
me Basic DEFIN ITI 


a 
a at 


I TION OF 


N 
eee Tats 
COMMON AND OTHER 
TRAP CATCHER 


STARTING ADDRESS(ES) 
ort HOOK 


w 
~ 









at at Ra bed ote et at 
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TEeTS. % n7 ING SETUP 
REFERENCE ALL CONTROLLER REGISTERS 
VERIFY 


Drives 10-ee TESTED 


DRIVE TO BE TESTED 


Rok 


Beep ri: 


= 
ui 


i oe _— 
apa VER FY Y SteRT oF E COMMAND 
ie Bate ak IEE evo cm OER DOR REG TEST, PAT 





Sects 


4010 117 
m2 1 
W368 182 
Te3 INDER 0 
Te4 a SWITCHING TEST 


; ALL wean’ oo SECTORS 


eat SECTOR INFO B TYPE PACK SERIAL # 


eEtars 


DRIVE DIAGNOSTIC. PART 1 MACYI1 27(732) O1-0CT-76 10:34 












OZREHB.P11 TABLE OF CONTENTS SEQ 0002 
6583 ie 2g A ough er 410 TO 0 & READ HEADERS 
sete 10 8 ALL et eS RS EEO 9 ‘ao REAOERS READ HEADERS 
FR by 410 & READERS 
es: u us bar He, , 
a 
8924 SuenauT ie ES eur HANDLER 
8361 UNEXPECTED INTERRUPT HANDLER 
S011 
$029 POWER DOWN AND UP ROUTINES 
3052 SCOPE HANDLER ROUTINE 
ai? ROUTINE 
Fi ta TYPE ROUTINE 
eset BINARY TO OCTAL (ASCII) AND TYPE 
ais AN OCTAL by gh FROM We Uy 
fi I NaRY 19 DECIMAL A RCTs ROUTINE 
ee hee BIN i 3% ASCII C T_ROUTINE 
ICAL ASCIZ NG SS LEADING ZEROS 
$813 SAVE AND RESTORE RO-RS ROUTINES 
9881 
1011? 
10610 
10866 
10906 
11039 


ee oe < e _——— -— 
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ee 
ae 


SEG 0003 


i673 CND, MC, MD 
. “atte 
;DEFINE SYSMAC MACROS 


-MCALL ADER, . SWRHI, . SWRLO, -EQuaT UP TCH, . SCMTAG 

ALL ee ,SSCOPE, ’ SERROR, mera | SSAVE | 

ae Sactii, YPOEC, ,SRERD. aie aaa itt 
167400 DEFINE SUITC HES 15,14,13,11,10,9,8 
000c0! SET FIRST TEST NO. TO'1 


;% 
S*THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
; HPACKAGE (MAINDEC-11-DZQAC-C1),MAR 24, 1976. 


-SBTTL OPERATIONAL SWITCH SETTINGS 


;# 

i. SWITCH USE 

x 15 HALT ON ERROR 

- 14 LOOP ON TEST 

.% 13 INHIBIT ERROR TYPEQUTS 

- 12 ABORT DRIVE AFTER 20 ERRORS 
i 1 INHIBIT ITERATIONS 

% 10 BELL ON ERROR 

i g LOOP ON 

+ 8 LOOP ON TEST IN SWR<7:0> 


TESTS 35, 36,40 & 41 
270 SANE AS 260’START BUT BYPASS TEST 16 ALSO 


S 
ALO SESEAEGSASSELRALOLS VERN POLY sts sinister: 0m von cee i 


.SBTTL SUMMARY OF STARTING LOCATIONS 
: 

i. Aig EFA TERS & BYPASS TEST 16 

i. $50 INPUT PARAMETERS & BYPASS TEST 16 

i S60 «RUN MODULE TEST VERSION-DEFAULT MODE ONLY BYPASS 
vt 

;% 


ae) ee ee 8 ee ee ee ee ee -_-- - —-_— ad a . a *- 





S 
bs 


= ODO VON E aU OD NOU COO NOONE CoO Od VOUT 2 Conde CoD OP OTE 


Se a 


3 b= &— P&H + be Hh 


————— ee Se = Se ae ee mere | 


SBTSIwIIR : 


001100 


Yo 


= 
= 
Mu 


Goes BY Se 


N 
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~SBTTL BASIC DEFINITIONS 
Ae Af — OF THE STACK POINTER ##* 1100 ##% 


a TERE ceBSSNG EFINITION OF ERE eat 


; MISCELLANEOUS DEFINITIONS 


T= i $3 FOR HORIZONTAL TAB 
ee Ko FOR LAR ARE 
CRLF= 200 -2 CO FOR & ARRIAGE FETUR-LINE FEED 
ES 177776 + PROCESSOR OTATUS WORD 

STKLMT= 177774 $s STACK LIMIT T REGISTER 
Brno. 177772 =PROGRAM I QUEST REGISTER 
DSWR= 177570 tt HARDWARE CWT TCH REGISTER 
DDISP= 177570 > :HARDWARE DISPLAY REGISTER 
-¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 40 -:GENERAL REGISTER 
Rls %1 > sGENERAL REGISTER 
Re= ne ;;GENERAL REGISTER 
R3= Xs -:GENERAL REGISTER 
RY= °:GENERAL REGISTER 
Sa %e ssGENERAL REGISTER 

% tera REGISTER 
Ave x2 3 RE 
ERY sk Eman 
V R7, + F BROCRAN COUNTE 
jxPRIORITY LEVEL DEFINITIONS ee . 
PRis 40 +S PRIORITY LEVEL 1 
100 * PRIORITY LEVEL 2 

PR3= 140 s SPRIORITY LEVEL 3 

= *sPRIORITY LEVEL 4 
PRS= 240 -:PRIORITY LEVEL S 

= 300 j #PRIORITY LEVEL : 
PR7= 34 > *PRIORITY LEVEL 
ix SUITCH REGISTER” SWITCH DEFINITIONS 
SW14= 
oul 

1 
Sul 
Sul 


a 


SEQ 0004 


- ——_On + == hw Of eee ©) Soom - 


—— = ore er eee ee OO ee oe ee ee ee 


20 - 0 0-- & - 0-6 - 0-—F op 


0-= 0-< § 2 «9 B-< 2 9 = 90> 


&-* 0-2} = 6-26-28 ~—§ ¢@ -< § -< » -< 6 <2 p-2 


EEFESSEASS SIMRAN SBR UR PURE. 
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-Seuty 2109, sus 

BUN 807.8 

“EQUIV a: 

“EQUIV 

Fa Bes 

EQUIV a 

EQUIV Sul 

EQUIV * Sw 

itOATA 817 INITIONS (BITOO 70 BITIS) 







o~e-~< 
B 2 &- G—> Bw Go 
wan 


= 






O—-4 4 > 40-4 0-4 1 4 ew 
444 4 44 4 4-4 4 


444-44 


S85S85o 









tes 4 

a 

EQUIV T09,8ITS 
EQUIV T08, BIT 
a atta’ ‘BITE 
EQUIV » SITY 
"EQUIV "BIT 
“EOuIV er 
“EQUIV BITOO.BIT 


CPU” TRAP VECTOR ROORESSES ‘- 

Ere seaveD AND ILLEGAL INSTRUCTIONS 
+ TRACE TRAP 

se INT TRAP (BPT) 

Hi / TRAP (IOT) ##SCOPEss 
(EMT) ##ERROR## 








»SBTTL RKO6 CONTROLLER REGISTER DEFINITION 


SEQ 00CS 


IBUS RKOG 
Pil 


S 


~O.80) oul 2 unde ceoto 


+ > 6 0-- 0 -< © = &- & < 6 -< 9 -~- & = b= & = §-< &  § —= P— 8-2 & +H -2 ® 2 H-< pH 26 > HH ~~ Ho 


BSIRARLOCHSSESRRPIBE 


Be Neos 


= b-- & ob 2 O-= & = O-* 2h 
DO NON £Wh-O 


rurururururururoruru 


SASS 
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LER REGISTER DEFINITION 


Data BUEN 
iMAINTENRRE FECISTER © (WESSHOE LINE @) 
Fee PoaTTLON Ineoreer Ton 


.SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
; DRIVE COMMANDS 


: $BASE=177440 
RKCSi=s 0 * CON AND STATUS REGISTER 1 
RKWCs ce s WORD NT is 

4 . STER 

6 sDES CTOR REGISTER 
RKbes ie ORIVE STATUS REGISTER 
AKERS 14 POOR 
RKASOF= 16 s ATTENTION AND OFFSET REGISTER 
sae 3 NDER REGISTER 

30 

32 
















SELORV= 1 sBeLECT DRIVE (GET STATUS) 
CLEARS sORIVE CLERR 
OAD= : 
SPL= | ‘START SPINDLE 
ges Ik Grete 
z 13 : 
The UR ‘bara 
TRITE HEADER AND DATA 
WR l WRITE CHECK 
i er ea 
= H 7 “18 : . 
Bic: Tg ive aooress BIT 16 
ets 110 CC OLLER ly TYPE (O=RKO6) 
CFNT= 1g : CONTROLLE oR T ¢ SECTOR, 1220 SECTOR) 
SPAR Tl - SEF SARI DETECTED BY CONTROLLER 
Is Bits ; 
Ker Re tie . 
SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 


7 * MASK I CTION CODE 

ABE, »DE T IVE IN BITS 0-2 
T4 . I INHIBIT 

BITS TEM 


F 
: YSTEM CLEAR CONTROLLER AND ALL DRIVES 


SEG 0006 


DO3 


SEG 0007 


tte 

» Stdypaae ee 
jpegs 
z, 
= 
5 
35 
“3 
BE on oe QUIT 
t tb 6 bb -b bh 
Ke gmamaaaaaas 
~<a 
Jue 8 0s 08 08 oo oe a 
25 genenogey. 

3 
a5 
te 
eo” 
ne 
Y sere 
28 Sedesases 


rat 
oF 


~SBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 


GAL FUNCTION CODE 


SS ERROR: HEAD/CYL 





FUNCTION 
SS OVERFLOW ERROR 








TE 


CTED SERCON PARITY ERROR 


2 


.SBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 





TYPE 
rh 


I 
T 





7 
e & 


Oo-uUnwrT in 
O- a) ae ] ODF —4 4 wt 4 we 


Bers eae ee eee te 


cece 


. 
rf 
& 





Sa eretare 
nA ht Ot 0 a ht 
BOwOoOoOOOOMO® 


BITO 


Ce 
ts 


doespaghae 


DRA= 





-SETTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMRi:22) 





TY ON SERCON MESSAGE LINES 


a 
Be far ome 


ENCODED WRITE DATA 





: : 
a} 
= 
8333 


3 ANN NNN LER ERR ER ARC TUU A CUM Ter Rat TiS OS SNS 





ee ee en OS EE EE ee ee ee SE ee Oe er ——— ee ee ee 


—_——-= or en ee eee . - -~ 


SEQ 0008 

















z; 


z S 
si : ao > @ 8 
o a win 
= : a § EE Bei | sy 
mM < 7 : « a ff ee a 2 & 
Gut 18 5 ward 
aaup a ~S Y = = ra i -E0O 2 = 
oo ee 
Sate, F whwwwhwory & Sy wS EF Saw ori 
S Pia8 5 sceeecants & eels | Ceeeee © lees 
iE : : 2 = amar a oacsneebeentlh 
i : : : : 
5 = = x = 
33 s % ts 
Se : 2 : : 
SS @Oomma DOOOOOOmMooa MOOOOOoOommamMmanm feslestesleslestes eslesteslas] fesTostesleslesleslesles) 
<i sg Phd SERS" Sy ydnd 4 BSuanundnty oo tats 
Se gaabs § dseebiunta § Peaeanaetse ¢ Haataniies & Gogeshas 
= bas > O2QOonOH0O0000MO - QQOHoHaHOA00MO > GQoHaoaHoaa0o0a0AaQa > OoaQaGaRa00O 
ot 
a oe 
: 
FF. 
BS CERO C COOLER OCU CORREA ARR MARARAASAAO OS 
| 





OF DRIVE STATUS BY 


SUBS Pa OSPREY 





AUR ERE ES St BPA 


tye (732) 01-00 pre 10:34 PAGE 8 
O1 MESSAGE B (RKMR3: 36) 


D.NNOV= BIT12 ; SEEK AND NO MOTION 
D: SuNS= BITS isenve Uraeee 


~SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2: 34) 


NORE 7760 ji YRock BtrFsceyte io 
M!OFST= 17760 OrFSEY 10 
M:SER= SERIAL’#, BYTE 1! 


~SBTTL COMMON MASKS AND OTHER BITS: MESSAGE 8B (RKMR3: 36) 


MI 4 sRYTE 

Meeps 17760 NOER AbpRESS BYTE 10 
M.ALGN= BITI4 iB GN SIGN, BYTE. 10 
M.SECT= CTOR BYTE 1 

M. "BYTE if 
M.PAR= BITIS se Oe MESS A/B, ALL BYTES 





‘oD 
eR EREEE =| OY 
. 


= S5ASSS0ASEUUTI UNNI EM & 
- 
eae 


ro ——— ——-— _ —S-— <= - Fe eo SS He a aS 
es 
. ee 
at an 


A A a ae ee 





. EXSFESRSERELEK SEAT RERER SEES 
: ier LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
9 o FRFASRSERERERASE RERARKERKKES 





Pipe OP MEORHON SBSKS AND OTHER BITS: RESSAGE BR (REMRS ray (Ort PAGE 9 


-SBTTL TRAP CATCHER 


iE _ re , HALT” 
Se 
UREG: “WORD 6 tISOFTHARE SHITCH REGISTER 


SBTTL Se “aaSTART JUMP TO STARTING ADDRESS OF PROGRAM 


2204 

INP BYTI6 “BYPASS N-SQUARE TEST IN DEFAULT MODE 
ire PARSRT s INPUT ALL PARAMETERS & START TESTING 
JMP BYTI6A ;BYPASS N-SQUARE TEST IN PARAM MODE 

2240 

Ie 0.0DT ‘ENTER ODT11 

IMP MDTST STS DEF AU I MODE ONLY 

7570 BYPASS. SEVERAL 

JMP MDTSTA -SAME AS 260 8 pypase N-SQUARE TEST ALSO 


-SBTTL ACT11 HOOKS 
s EEEEEEEE ELE EERE LEGER REALE EEE EERE ELE EEE REEL EEE EERE EE 





;HOOKS REQUIRED. BY ACTLI es 
| >: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
: 100000 3 32)SET Loc.S2 TO 100000 
-: RESTORE PC 


- =$SVPC 
- SBTTL APT PARAMETER BLOCK 
EE AE AER HE EEE EE 
2 A JE EE EEE 
A. L fo POINT TO START OF PROGRAM 


tS POINT TO APT INDIRECT ADDRESS PNTR. 
SAP THOR | +#PO NT TR arto OCK 


ayeeendeiteaved eaneeatenmuenrentennesnueseesneeneeneeaneeneens 







fal T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ATERFACE ACE SPEC. 

1BTS: 0 , _ HHTMO_HIGH BITS OF 18 BIT NAILBOX AOOR. 
SnBADR: et aie it POR fin OF PONGE ST ST 


SEQ 0010 


UNIBUS RKO6 DRI IAGNOSTIC PART 1 MACY1L1 27(732) O1-OCT-76 10:34 PAGE 10 
DoREMB. Pil “ie? PARAMETER BLOCK SES 0011 


Se ete: RAR: ABQ EER. sR THOM Fin ELSON Sobel ES EMEC. 
413 50101 ae Eno-shaiivs : LENGTH MATL BOX=ET (WORDS) 


nf uNTBUS BKO6 DRIVE DIAGNOSTIC PART | 





pb be Fe BP Be Bo poe » 


Gms Bee Bee bo Bb ps he Fm Ps Be pie Be pe 


ENSFLEHEVEREHSS EGSRRERSRERISHEHORLBRSS 


So 
SSS888888' 





S8SSSS8S8S88S8SSS88SSS88 


Be bo b= Bn Pe Bo pee Bae bo fF b> et bt bo p= bo be bo bs Pe fe ho be Fe ee fo Bm 2 fh 


REE 


lutea 


> 2 b= 2 bb be be bm bn fn he be be be he be Pe be ne 


SSELEREE RE COO UPR D NOOSE aeRO ES OBS 
Besse 


I03 
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SEO 0012 


-SBTTL COMMON TAGS 
5s KEREEEAALLERRERLALEEE SERRA ER AA LEE EERE ER EL AEE EE EERES LEE EEEELES 
ORAGE LOCATIONS 


Tue TABLE CONTAINS VARIOUS COMMON ST 







—_ > START OF COMMON TAGS 
$s onTare TEST NUMBER 
+ EONTAINE TT TERATION COUNT 


: = CONTA 
35 A 


TO BE USED 
AMDT NRE BIEN 
AES OE BU ABLE 


ATUS REG. ADDRESS 


FoR FILLS 
LLER CHARACTERS REQUIRED 


t OF FI T 
ILABL o ftaG (Blt«d7> 0+ VES) 





Oe eee 
renee 






(207><377><377> 3; 
4?/ ss 
(15> s8 





‘ . <le> I 
» SSUMEUSESSARESESTESESEONUNUEEOLERSEEOSTEREERONEEOEONELEGEOEEES 
-SBTTL APT MAILBOX-ETABLE 


a ee 
SNAIL: - APT MAILBOX 
SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 





JOS 


SEO 0013 































: 

foe} 

: : 

5 

tape: 

ys 8 5s a = 

eae 
cu SEO Su m= Syu RESSSSES SESS SSS 
wu = 23! Goud tay bees scones 
3 eee BED wR iS Ben 
t ean e See ase 
. Eee Seni =, cae ea 
rs - a Q-ur 
: fe aaee : a 
c SeSSeee aaess Be a Gbtensnessaeeesseeeseeeerss 
3 gee ee 
; pepe... ie coool Repco bese cledsaasa eats 
ia 
ot 
a 
- 88 
Y 
& f SSC i Se 
2 e eames 


sas SD PRE eS Pra SOE SDDEERT Ee FT SGREGIMDRSS arts SOIT 


Ce Se ee Oe OS ewe —_-=- 


a | 
_——~S ~~ ———— 


b2AeHS. Pit Dihctdaeiien 
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SDouls: ‘Wom MOUS {DEVICE BESRIPTES tdnbels 


= 4 Sa sDEFAULT BUSS 
Ric we eC €10 ; DEFAULT BORTROLLER NTERRUPT VECTOR 
BK : : " 172540 iB-CLOCK STATUS REG 
PKSB: 172542 “Pat 
PKRB: 172544 BEL OCK READ BL 
LKS: 177546 *L=CLOCK STA REE 
LCVEC: 100 sL-CLOCK INTERRUPT VECTOR 
PCVEC: 104 *P-CLOCK INTERRUPT VECTOR. 


;MEMORY PARITY VECTOR 





MEMVEC= 
MEMBAS= 172100 “MEMORY PARITY OPTION 
TRAPPC: O :PC FOR MEMORY CHECK ENABLE TRAP 
BYPTIe: 0 it FOR 510, o30 270 cTaRT 
MODTST: O -1 FOR * oR oho START 
FTITLE: 0 "FLAG FOR PRINTING OUT 1ST PROGRAM TITLE 
ORVPTR: 0 s CONTAINS POINTER TO THE DRIVE FLAG 
CORIO ORV?) ) OF THE DRIVE TO BE CHECKED NEXT. 
FRCYL: O 
TOCYL: O -TO CYLINDER 
CCYL: 0 i CURRENT CYL Ri, N 
SAL DIF CAL EYE “DIFF NN TEST 
ROLBIE: 5 -CYL D Op teh TER FRO REARS 
CYLADD: 0 -CYL ADDR, RIGHT JuSTIF ED FROM RKMR3 
: 0 EYE ADDR’ USED IN FRDT ROUTINES 
H2: 60 :60 FOR 60 CPS 
-S0 FOR SO CPS 
COUNT: 0 sLOADED TO SO OR 60 TO COUNT TO 1 SEC 
: “OR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND 
MUP: 5 sBECOND COUN wo, iNoIER TE TIME IS UP 
SECNT: 0 i SECTOR 
PSEC: Q SECTOR | 
ESEC: EXPEC 
SECTOR: 0 *SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
LPFLG: 0 SET_10 0 TO TURN TO SLPADR 


SW14 OR 
iter TO 1 TO RET N TO SLPERR 


: TIMEOUT CONSTANTS 
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DZR6HB. APT MAILBOX-ETABLE - | SEQ 0015 
S83 001442 904708 TeS00: 2500. te | 
584 OO1444 011610 T5000: S000. 
58s T50000: 50000. | 
oa; ibe Og iHEAD NUMBER FOR FORMATTER ROUTINE 
an rer 8 Ae alelealaleded 
bal l 5 : BORD EDUN 
593 001462 - DATAO: O ALL O'S 
94 OO1464 TAQ: es2e ;0101 PATT 
5 01466 1 TAl: 1777 “ALL 1°S 
597 001470 ooocoo WORD: : sHEADER/DATA WORD 
eae 0014 000000 HDWD: sHEADER WORD FROM 
600 001474 oD0000 BSERR: 0 sCANNOT READ BSE INFO WHEN SET 
coh 001476 000000 0 ‘LIMIT DETECT ERROR FLAG 

001500 000102 .BLKW 66. sCALCULATED HEADER WORD TABLE 
604 001704 000102 : -BLKW 66. ‘FILLED AFTER READ HEADER CMD 
605 002110 000102 : [BLKW 66. “ABOVE RHTAB SORTED STARTING FORM 
G06 -SECTOR O BY SORT ROUTINE 
14 oo0400 .BLKW 256. 20 SECTOR BSE INFO 
608 14 o00400 “BLKW 256. :22 SECTOR BSE INFO. 
610 004314 000632 > 411. s INVALID CYLINDER ADDR 
611 904316 ODEs Tt 
et Bouse BpOTOD 44g. 
p14 004324 000740 4ug0. 
616 
617 004326 001 002 ATTN:  .BYTE 1,2,4,10,20,40,100,200 § ;ATN O-7 RESP. 
618 004331 010 026 O40 
619 004334 100 200 
629 EVEN 
621 
bee LIST MD 
624 SUSE LOOP X TO OMIT JSR PC, SUBCLR 
, 
eee .MACRO LOOP AA 
628 SCOP 
be MOV ¥STACK, SP sRESTORE STK PTR 
IF : Q 
SR PC,SUBCLR - 
b33 ERROR 24 -CERR AFTER SCLR 
635 .ENOC 
636 -ENDM LOOP 
637 
638 


| 
| 
| 
: 
| 





652 


o 
& 





IAGNOSTIC PART 1 
MA 
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=MSG AO ERROR#, B=MSG BO ERROR# 
;C=MSG Al ERROR#, D=MSG Bl ERRORS 


+ E=<ERROR CONDITION DESCRIPTION 
;F=D. DSC AFTER ATTN OR O AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 


NOTE: F CAN BE ANY BIT COMBINATION DESIRED 
“MACRO CKWD12 A,B,C,0,E,F 


HOY ACCLR, RK RKCSI(RS) ; sCONTR. CLEAR he 
nev ac? OPINED. oro. wid.0 BRAY "Oph sSHOULD BE VALUE 
JSR PC, CKMRe 
ERROR ‘nse “oO TERROR E 
CLR SBMR3 
JSR PC, CKMR3 -CHECK MR3 = 
— ERROR 8B “MSG BO ERROR E | 
MOV RKC (RS) ~. 
, MOV aT RRMRT ¢ sSELECT WORD 1 
JSR pc’ GSTAT 
HOV gcb, SPOKD. CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
RROR :MSG Al ERROR E 
CLR SBMR3 
JSR PC, CKMR3 
ERROR OD -MSG Bl ERROR E 
ENDM CKWD12 
 A=CYL DIFF/OFFSET ERROR# 
*B=CYL ADDR ERRORS 
; C=<ERROR CONDITION DESCRIPTION> 
‘MACRO CKMD3 A,B,C, 2D, 7E 
MOV #CCLR, RKCS1(RS) 
JSR RDCYLD sREAD CYL DIFF IN RKMR2 
isr CYLDIF 
ERROR -CYL DIFF/OFFSET NOT CLEARED C 
D: JSR PC, RDCYLA ‘READ CYL ADDR IN RKMR3 
ist CYLADD 
: ERROR : sCYL ADDR NOT CLEARED C 
.ENDM  CKWD3 
.MACRO LPCHK A 
CLR SESCAPE 
TST LPFLG 
BEQ 


SEG 0016 





UNIBUS — DRIVE DIAGNOSTIC PART 1 
aie 


roo 
DFA 


o 
Steir 


b + be B-2 


WrMUK©C 


NINININI 
~- 


714 


ee: aaa saeaaaa 


723 


749 


ll 


APT MAILBOX-ETABLE 


"MACRO TSTSWS A,B 
INC PF 
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JMP ISLPERR -SW 9 WAS SET. 
Q: IMP JSLPADR “Si 14 OR 8 WAS SET 
.ENOM LPCHK 
.MACRO SWB14 

ISR PC, SWTST -SEE IF SW 14 OR 8 IS SET 

SKIP R,<GO'TO NEXT TEST?’ -RETURN HERE IF NEITHER IS SET 

HERE IF SW 14 IS SET OR 
+S @ WITH SWR <7:0) APPLY 

.ENDM  SW814 
-SWRQ (LOOP ON ERROR) TEST =BRANCH POINT TO RECONDITION DRIVE 


B=JMP POINT TO RE-ENTER MAIN LINE 


LG 
BIT #SW9, ISWR *LOOP ON ERROR? 
BNE Q iNES RECONDITION DRIVE 
JMP B URN TO MAINLINE 
.ENDM  TSTSWS 


: USE DRCLR -X _—sTO OMIT CKMDL2 
“MACRO DRCLR A,?C 


MOV #CCLR, RKCS1(RS) 


MOV #CLEAR, RKCS1(RS) :DRIVE CLEAR CMD 

MOV T10, TEMP 

JSR FRDY sFIND RDY 

RROR 15] =NO_RDY BFTER DRIVE CLEAR CMD 

ISR Pe TSTATN ‘TEST FOR ATTN 

ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
IFB A 
al CKWD12 273,265,274,266,<AFTER DRIVE CLEAR CMD>,O 
ENDM DRCLR 


{USE CALIB © X_~—‘TO OMIT CKWD12 & CKMD3 
“MACRO CALIB A, ?C 


MOV #CCLR, RKCS1(R5) 
MOV SUNIT, i PuCae Re) 
MOV #RECEL 1(RS) *RECAL CMD 

sRESET CYL DIFF/OFFSET & CYL ADDR REG 
IN RKMR2 & RKMR3 RESP. 


MOV T10 TEMP 
JSR C,FROY sFIND RDY 


SES 0017 


SES etR RPT PReRtcr cr or nce RSRERPRARRGEC TS Treen en rc 


MACYS é7 1722) 


ERROR 


IFS A 





BO4 
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124 *-RDY NOT SET AFTER RECAL CMD 
ai, ites (RS) >SELECT WORD 1 


eS AtZ He 
Cen ay, pT aRe0U 


se :NO ATTN AFTER RECAL CMD 
sare n222,276, AFTER RECAL CMD» ,D.DSC 


ING RECAL CMD 


;RECAL CMD 


;FIND 
ROY NO "FOUND AFTER RECAL CMD 


— ashy IF IDRE IS CLEARED 


iSS NOT CLEARED AFTER RECAL CMD 


acc R RKCS1(RS) 

Tl, ;LOOK FOR ATTN FROM RECAL 
pe’ FATTI 

SS ;NO ATTN AFTER RECAL CMO 


eee ioe 


CMD 
vy PIP!D. SPINtD. vV!D. DRA> SBMA. ;LOAD SHOULD BE DATA 


PC 
203 AD ERROR DURING SEEK CMD 
SHOULD BE 0 






SEG 0018 





AS 
er 

z 
pin 
“2 


ig 1 PART } MACYi1 271732) O1-OCT-76 10:34 PAGE 18 
MAILBOX-ETABLE 


Nes ;CHECK MRS 
;MSG BO ERROR DURING SEEK CMD 


5 
<= 
2 3% 

D 





10$,2e$ 


;QUICK SEEK. ENTER WITH CYL # IN RKDC 
»MACRO QKSEEK 7A 


9 BCCLRRKCS1(RS) ;CONTR CLEAR 
HOV a1,R AREAL Re) CT WORD 1 
13 OV ach. "Bow, senrse. DOOR!D. BRHM!D. TFOK> , SBMR2 
eis ERROR - MSG Al ERROR DURING SEEK CMD 
513 ISR C, CKMR3 -CHECK MR3 
g18 ERROR 206 >MSG Bl ERROR DURING SEEK CMD 
820 .ENDM  SKRDY 
Be 
ees .MACRO SKATN A,B 
acs JSn PC FATT2 “FIND A 
ERROR 132 : NO artN TOFTER SEEK CMD 
2a I SCERR,HCS1 
10 :CERR AFTER c 
ge As 12 133,134,135,136,<AFTER SEEK CMD>,D. 
J PC, ROCYLD sREAD CYL DIFF IN MSG A2 
E EE aes 
: gat ERROR 137 -CYL DIFF NOT CLEARED AFTER SEEK CMD 
| ey END KA ai 
239 
| Yo ‘QUICK START SPINDLE. 
| gic "MACRO QKSRT 
J PC, SUBCLR 
| a ERROR 24 -CERR AFTER SCLR 
/ 
847 MOV RxCS1RS) -START SPINDLE CMD 
| MOV Ho, fe SET TIMEOUT 
) ERROR | Ne ROY NOT FOUND AFTER ST SPIN CHD. 
Bee MOV T100, TEMP2 ane TIMEOUT 
JR PC, FATT f ND ATTN 
| Be ATTN AFTER ST SPIN CND. 
|. TSTSWS 
| 257 ENDM QKSRT 
% 





- — or oe ~~ eo ee Or we we eee ei ee eee oe 
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MRILBOX-E TABLE SES 0020 


MOV fi5, ter RKCSI(RS) ; eat “TINEOU TQ eon ET LOR ORIVE. 


a Vi ind ROY BETER SEEK CHO. 


MOV TSO00, TEMP! 


'MACRO QKUNLD 7A, 78 





863 
g64 
JSR pC Fatt *FIND ATT 
; RROR 1 =NO ATTN AFTER SEEK CMD 
Bry SCERR, HCS1 
a4 210 -CERR AFTER SEEK CMD. 
g7b Q: JSR PC, SUBCLR 
te ERROR 24 -CERR AFTER SCLR 
879 .ENDM  GKSEEK 
gad 
881 ; 
= une RPE BE 
ee : B=FIND VALUE ee CYLe BEFORE EXITING 
886 .MACRO QKRPSK A,B, °C 
83g JSR PC, SUBCLR 
B69 ERROR 24 -CERR AFTER SCRL 
g9) C: MOV TOCYL,RKDC(RS) ;CYL® 
B32 QKSEEK 
ES4 A TOCYL 
CMP TOCYL, #8 sALL CYL DONE? 
BNE C 
exe JSR PC, SUBCLR 
93 ERROR 24 -CERR AFTER SCLR 
201 LPCHK 
903 .ENDM QKRPSK 
904 
goc 
206 QUICK UNLOAD 
938 
309 





310 JSR PC, SUBCLR 
11 ERROR 24 sCERR AFTER SCLR 

ai5 MOV BUNLOAD, RKCS1(RS) sUNLOAD CMD TO RECONDITION DRIVE 
614 MOV 110, TENA 

aie een —_ ROY NOT SET AFTER UNLOAD CMD. 

ai5 cone , TSTATN 

918 ERROR le :NO ATTN AFTER UNLOAD CMD 





UN 


2 
“SF 


ORIVS Vis TIC PRRT 1 8 MACYI1 271732) O1-OCT-76 10:34 PAGE 20 | 
MAILBOX-ETABLE SES 0021 


4 
~ 


;CERR AFTER SCLR 





Q sSETUP TIMEOUT 
-SELECT WORD 1 
OK GONE 

tae vege 
ELSE TRY AGAIN IF TIME NOT UP 
SPEED NOT DOWN BY TIMEOUT 

B: 
-CERR AFTER SCLR 

ENDM QKUNLD 


. /<CFMT! WRHEAD) 
: teatate (A>,X TO OMIT CKWDl2 


“MACRO WRHDR ,C,D 
MOV #<AD RKCSICRS) WR 
MOV TS0000 TEMP aN Tine COUT’ 


ee 





BIT ape te 
. AFTER WRITE CMD 
MEGIB : ING BALANCE OF teers 
JMP $e0P <ABORT DRIVE 
Dee C 
i CKWD12 277,267,300,270,<AFTER WRITE HEADER CMD>,0 
.ENOM WRHOR 
A=RDHEAD/<CFMT! RDHEAD> 
; USE ROHOR <A>,x TO OMIT CKWD12 


-MACRO RDHOR A,C,7D,7E 


nov isoatiesl® 26 -READ HEADER CMD 
HOV Ea TIMEOUT 


PROSE este tal el baal Guu SPP REA Sry ay TOM SST PIN & 


2 6+ ho B+ Bh Pm > FF  &- = Bs = Fb F< bm eh hw ha Op he 


S 
SUSIRRISRSE SS San ch See URC ORES Se eR LOR eae SRR Toes 3a ata & 
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Pl MATLBOX-ETABLE SEQ 0022 
ERROR 171 :NO ROY AFTER READ HEADER CMD 
BIT SCERR,HCS1 
ERROR 174 sCERR AFTER READ HEADER CMD 
TYPE MSG18 -ABORT BALANCE OF TESTS 
JMP $eoP ‘ABORT DRIVE 
O: MOV RKDB(RS),(RO)+ 5 1°ST WORD FROM SILO TO RHTAB 


MOV RKDB(RS), ( )+ ; *ND 
MOV RKDB(RS), (RO)+ 33°RD 


BIT sOLT, RKCS2(RS) 
BEQ E 
JSR PC, GSTAT 


173 :DLT AFTER READ HEADER CMD 
MSG18 SABORTING BALANCE OF TESTS 
. JMP $eoP “ABORT DRIVE 
IF B c 
nai CKWD12 301,271,302,272, AFTER READ HEADER CMD>,O 
.ENDM RDHOR 


* R=TOCYL/FRCYL 
-B=310 FOR TOCYL/311 FOR FRCYL 


-MACRO HDCHKS A,B, 7C 





CoP BUTE ‘y : CHECK (CYL®) ONLY 
fo Oe WOBR TF SARE 
. ERROR 8B * READ no WORD HEADER ERROR 
.ENDM HOCHK3 | 
.MACRO RALLHD A,B, ?C, 7D, E 
MOV #RHTAB, RO 
A: MOV #RDHEAD, RKCS1(RS) READ HEADER CMD 
MOV TSO0, TEMP » SETUP tINEOUT ; 
PC sf IND Ror 
=NO RDY AFTER READ HEADER CMD 
Bra Q — 
ERROR 174 sCERR AFTER READ HEADER CMD 
YPE MSG18 *ABORTING BALANCE OF TESTS 
IMP seoP <ABORT DRIVE 
8: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
MOV RKDB(RS),(RO)+ 32°ND WORD 
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MOV RKDB(RS),(RO)+ ;3°RD WORD 
: BIT #OLT,RKCS2(RS) ;SEE IF DATA LATE 
1 | SR GSTAT 
l ERROR 173 sDATA LATE ON READ HEADER 
l TYPE MSG18 ‘ABORT BALANCE OF TESTS 
is JMP $eop ‘ABORT DRIVE 
1 C: CMP RO, #RHTAB+132. ;ALL 66 WORDS DONE? 
O41 BNE Q ‘BR IF NO 
os JSR PC, SORT T RHTAB INTO SRTTAB SO THAT IT 
BEGINS WITH SECTOR O 

O45 CLR WOCNT WORD COUNT 

MOV SRT TAB RO sHORD C HEADER TABLE 

MOV AB, RI ‘CALC HEADER TABLE 

0 MOV (RO)+, HDWD 

MOV (RIDs TEMP! 

rs CHP HOWO, TEMP! ; COMPARE ACTUAL WITH CALCULATED WORD 
READ HEADER MISMATCH 
E: INC 
CMP WDCNT,, #66. -ALL WORDS DONE? 
BNE D <BR IF NO 


A=TOCYL/FRCYL , B=HEAD#, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR 


“MACRO HDTBL A,B,C 
NOV a8 HEA 70 FI 
MOV FORMAT i HEADER” 
JSR PC; FHDTAB : TABLE 
.ENOM HDTBL 


USE FRERA FREES, POSES," POaPB,EELNGR PRA. 


“MACRO FSECA A,B,C 


Eno ERROR FLAGGED IF ooh OUND BY TIMEOUT 
i. T 
is: JSR Pe, ‘READ SECTOR 


e— B—- B= b b— B- b- B = b- B -- Be = & + = = = = Pe bP fb bb = bs 8 = Oe he be b= eb hs hs Ft = & 0 sp ms Do 


PREBRES IS osname Geir oioe Soe meee 





SEQ 0023 


= 
< 
“oO 
“5 
: 





BELRRIOR OSES 


0 02 b0 Bae Bae ae bmn Oe Fe Bae Be Bw Bae Be Fe he Pe Fe Fae he Fe bo Pe Bae 2 Fe Fas Bmw Be Pe Fens Hens Fo Pne Hne He Huns H-0 Hs => Ho Hae bo P= Hw H <0 Huw Po 2 2 Ps Pee h—o pee Huw Hw 


B= b= 0 be ae be Fae Bae Fae Bw § a0 Pe Be Bs Fe fe 0 Be He 2 Fas bmn fe F—0 Fe Fne B-0 Bn he Bae § =2 Fo Fame me Fe Fne f= Po ee Hw Faw Fw fo 


U— SSBOVRRZSRHBSOVRR PORE Boo Von sow OSB VERE OHS 


in 


— = ee ee ee re em 


AO 


IAGNOSTIC PART 1 


MAILBOX-E TABLE 
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TST SECTOR *LOOK FOR SECTOR O 
BNE 23 
} T SECTOR 

Q -BR IF SAME TWICE 

- re ta TRY N IF TIMEOUT NOT UP 
MOV 8p) +, TEMP ELSE” RESTORE 1 
RTS sEXI 

33: MOV (SP)+. TEMP] 
B00 , (SP) -SKIP OVER ERROR 
R 

.ENDM 


ee FSECB FNESO' ROSE, 20 FOR 20 SECTOR FORMAT 
“MACRO FSECB A,B,C 


“FIND NEXT SECTOR IN C SECTOR FORMAT 
“ERROR FLAGGED IF NOT FOUND BY TIMEOUT 





A: MOV TEMP1.-(SP) -SAVE TEMP 1 
MOV , TEMP 1 5 SETUP TI 
1$: JSR oe SECT 
CMP PSEC, SECTOR 
BEQ 3$ <BR IF SAME 
SR e “ELSE TRY READ DIFFERENT TWICE 
CMP , SECTOR 
bE | :BR_IF DIFFERENT TWICE 
3S: DEC 1 : AGAIN IF TIME LEFT 
MOV (SP) -RESTORE TEMP 1 
RTS PC 
es: MOV (SP)+, TEMP sRESTORE TEMP 1 
ADD #2, (SP) -SKIP OVER ERROR 
RTS PC 
. ENDM 


“USE SECTST FSO22,FNS22,RDSEC FOR 22 SECTOR FORMAT 
“USE SECTST FS020,FNS20,RE0SEC FOR 20 SECTOR FORMAT 


MACRO SECTST D,E,F?A, 7B, 7C 






JSR PC,D FT CTOR O 
ERROR 142 se TORS O NOT FOUND BY TIMEOUT 
CLR PSEC sPREVIOUS SECTOR 
A: JSR PC.E *FIND NEXT SECTOR 
ERROR 43 i ‘DIFFERENT SECTOR NOT FOUND BY TIMEOUT 
AbD Hi cake -SETUP EXPECTED SECTOR 
MOV SECTOR, PSEC “UPDATE PREV SECTOR 
JSR PCF *READ SECTOR 


D2RGHB.PI] APT MAILBO 


& of 2h -« b+ & ~ P-2 f-—» P © P-= B~ 


LOU ES GGFHES 


= b+ = B= = Fm Fo hh hs B+ He hs Hw B= f= 0 he Ge Bs Bo B- 2 He Bh + Ho he hs fo fee Pome Bs Bs Po He d-< 0 b+ bb ~ & = b= P= b= P— b— b+ &-« b> = » -< H— H-~ B 0 H+ p+ BW -- 


SSRRLSHLVSEER EBS! Basa Votol suns ins DRE Saw ae 


er ee eee See = ~~ @ 


IC__PART 1 
X-E TABLE 
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CMP 
BEQ 
JSR 
CMP 
BEQ 
ERROR 

B CMP 
BEQ 

C: bec 

ENDM SECTST 


TECT OUTER LIMIT: 
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CTOR, PSEC 
, :BR IF READ SAME TWICE 
e CTOR, PSEC TRY TI 
144 = MSG 4 PEROR Sector REG UNSTABLE 
‘MAY BE DURING SECTOR PULSE TIME 
SECTOR, ESEC 
SENT ;MSG 83 ERROR BETWEEN SECTOR COUNTS 
-BR IF SECTOR COUNT NOT DONE 


0.REV, OUTER 


‘DE 1,0, 
‘DETECT INNER LIMIT: 409.,410.,0.FWD, INNER 


“MACRO LIMIT A,B,C 


JSR 
ERROR 


Ss ae gucgueuegeguesse S 





D 
pt SUBCLR sSUBSYS CLEAR 8 GET STATUS 
24 -CERR AFTER SCLR 
LPFLG 
SPAT, RKMRI(RS) ;PARITY & WORD 0 
A RKDC ( ) seyL A 
astEK RKCSIC(RS) ; CMD 
T10, TEMP! 
PC PRON tN ROYUFROM SEEK WITH BAD PARITY 
TSTATN *TEST FOR ATTN 


; TTN FROM SEEK WITH BAD PARITY 
RKCS1(RS) 


Perc RRE igs 0: ORm » SORE 


119 
(D.FLT!D.PAR>, 


i 

PC. CKMRS ; MR3 

vo *MSG BO ERROR AFTER SEEK WITH BAD PARITY 
RKMRI1 (RS) sREMOVE PARITY & SELECT WORD 0 
SCCLR, RKCS1(RS) 

acd SPINED DRDY!D. Vv! >, SBMR2 

i 'D. 1D WyE0. DRS 

152 *MSG AO ERROR AFTER CLEAR CMD 
Rech oe BE CLEAR 

1 a . oo AFTER CLEAR CMD 
#8, RKDC(RS -CYL B 


) 
wSEEK,RKCSI(RS) :SEEK TO CYL B 


AO ERROR AFTER SEEK WITH BAD PARITY 


ree ee ORVg presnogr2c_ ent PART 1 8 MACY11 27(732) O1-OCT-76 10:34 PAGE 2S 







SEQ 0026 
1199 MOV T10, TEMP! | A 
1 zPron FROY NO ROY AFTER SEEK CMD 
i V Lak RKCS1(RS) :s 
l JSR PC, GSTAT 
1204 SR PC: CIM -FIND LIMIT DETECT 
iso ERROR 160 LIMIT .OETECT NOT FOUND BEFORE TIMEOUT 
T AFTER LIMIT DETECT 
ei ae a 
l 18: MOV -MUST ESCAPE TO CYCLE UP DRIVE & TEST SWR 
BE ENE | 
ei4 CLR Ri LRG) sSELECT WORD 0 
l OCB D.PIP!D.SPIN!D. VV£D. DRA> , SBMR2 
si me tig OPo. sen 
18 ERROR el thee AD ERROR AFTER D LIMIT DETECT 
219 MOV #<D.SKI!D.FLT> , SBMR3 
JSR PC, CKMR3 sCHECK MR 
ERROR 1 *MSG BO ERROR AFTER D LIMIT DETECT 
MOV RKCS1(RS) 
MOV BI RKARLCRS) ~— ; WORD 1 y 
JSR TA 


acd. UNLD!D.REV!D. SPOK#D. CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
Shee CE Al ERROR AFTER D LIMIT DETECT 
ERROR 165 sNO ATTN AFTER D LIMIT DETECT 


Paling 


bi! Wn, NOT FOUND BEFORE TIMEOUT 


TEMP? Seite iret FOUND BEFORE TIMEOUT 


SATIN NOT FOUND BEFORE TIMEOUT 


CLR SCAPE 
CKWD 12 64,65,66,<AT END OF HEAD LOADING» ,D.DSC 
CKWD3 END OF HEAD LOADING 





-ENDM LIMIT 


! ASCYL#, B=HEADS 
"MACRO HEADER A,B 


b— b-= B+ b= He BB 6-2 &- 8- = be = FB = Bo b= Fh Fh + bh bh Oe Bb Os = be 2 2 bb -  B ss 2 Pe H > FO 


TITS Teh EOCCOOBIeR SENSO ME PORTS 
a8 
53 
m 
8 


~ yy 
<» 
> ; 
; 


ee ee sSsss...sSss Se eee eae 


DZRGHE.PLL APT 





G— 0-4 &— b> bb b= F-  * b  ~ 


SEER ERAS 


| 
| 
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NEWTST <<WRITE & READ HEADER 
MOV aST 
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CYLINDER A, HEAD B>>,1 


1000, DEC 
11. ,DE 


ACK, SP *RESTORE STK PTR’ 
JSR PC, SUBCLR 
ERROR 24’ -CERR AFTER SCLR 
MOV SHOTAB,RKBA(RS) ;HEADER WORD T 
MOV #66 RKWC(RS) ; 
MOV OCYL 
HDTBL FotYe O 
MOV #A RKOGERS -CYL# 
WRHDR  WRHEAD 
CLR CECHT -SECTOR COUNT 
MOV #A, RKDC(RS) -CYL # 
RALLHD 
ENDM HEADER 
TO MAJOR CYL: a , TEMPS, TEMPS , TEMPY, iD. EHD, D. REV ASL 
0 TO ALL CYL: FWD V_ ING 
SEER 4iO0 TO ALL CYL iio. M408. TOPENeY. , TEMPS, D. REV, D. 
"MACRO SKOSC A,B,C,D,E,F,G,H,1,J 
MOV #A, FRCYL sSETUP FROM CYL 
MOV #8, TOCYL -SETUP TO CYL 
18: LOOP 
MOV #10$, SESCAPE 
MOV FRCYL, TEMP : SETUP 
MOV TOCYL, T -CYL DIFF 
SUB C.D -FOR 
MOV D, CALDIF sERROR PRINTOUT 
MOV TOCYL,RKDC(RS) ;GO TO CYL # 
es: aoe & 
: HOV te500 TEMP Ie sSETUP TIMEOUT 
JSR PC ‘READ CYL ADDR IN MSG Be 
chp CYLADO, TOCML : 
ERROR 207 sCYL ADDR IN RKMR3 NOT=RKDC 
~“, wr 
SE 
MOV TOCYL RKOC(RS) ¢:YL 
HDCHK3 TOCYL,310 
LOOP 
MOV iss 
MOV Sc cRS) sRETURN TO CYL # 


PUD; BEC. 


~~ 
~j 
1, INC, 411. 


SEQ 0027 
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APT MAILBOX-ETABLE SEO 0028 
131 MOV FRCYL,CCYL sCURRENT CYL FOR TRUERR ROUTINE 
131 SKRDY F 
1314 4S: MOV #16$, SESCAPE 
1S HOV T5000, TEMP1 sSETUP TIMEOUT 
1 8 38 PC, RDCYLA ‘READ CYL ADDR IN MSG B2 
l 18 CMP cYLADD, FRCYL 
131 BEQ S$ 
1320 ERROR 243 -CYL ADDR IN RKMR3 NOT=RKDC 
] Ss: Lope 
l sc 
Pe MOV Prev RKDC(RS) -CYL # 
1 HDCHK3 FRCYL,311 
1326 
1327 G TOCYL 
1328 CMP TOCYL, #H sALL CYL DONE? 
l BEQ b$ 
1 JMP 1% 
| ge: SW814 
l 8$: I.J 
1 10$:  TSTSWS 8$,25 
1234 1e$: TST 8S, 3$ 
1335 14$: TSTSW9 8S,4$ 
1336 16$: TSTSW9 8S,S$ 
1337 .ENDM = SK 
1338 
1339 .MACRO EOPGM 
1340 
134 SCOPE 
l eSTACK, SP 
1343 INC VCT -INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
13 DRIVS SDEVCT “ARE ALL DRIVES PRESINT TESTED? 
l BEQ SEOP1+ -BR IF YES 
1346 JMP -IF NOT , TEST NEXT DRIVE PRESENT 
1 SEOPL: SCOPE 
1348 : EOPGM 
1349 
1350 NLIST MD 
1351 
135¢ 
“THE FOLLOW 0 G RK! GISTERS 
te THE, FOLLOWING. ARE MOLDING REGISTERS. FOR THE Aust REC 
g 
30 HCS1 sHOLD RKCS 
1359 HCSe: * HOLD aKeeS 
i3e sHOLD rn 
8 oO 
13E2 
1363 
1368 
i3ee 





SES 








2 
5 


: 
S88 <8 


i 
eke 


SSSR RMU Sea eP EB EeE SS Wasa sees 


S 


e 
e 





2 
wi 
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090000 
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HDB: 0 ; 
HMRI: Q 
HMRe: Q 
HMR3: Q 

HPOS : 
HPAT: 


THE FOLLOWING ARE “SHOULD BE” REGISTERS FOR THE ABOVE REGISTERS 


SBMRe: 0 :*SHOULD BE’ FOR HMR2 
SBMR3: O sETC 
: TEMPORARY STORAGE. 
Er: 
TEMPS: 
0 
0 


PALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


DDUMP : 0 sFLAG - SET WHEN IN DDP DUMP 
DDPCH: O “FLAG - SET WHEN IN DDP CHAIN MODE 
ACTI1: O FLAG - SET WHEN IN ACT11 MODE OF OPERATION 
PPTP: Q “FLAG - SET LOADED BY PAPER TAPE 
DRIVS: QO : CONTAINS THE NUMBER OF DRIVES PRESENT 
: THE a BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
IS PRESENT AND IS TO BE TESTED. 
DRIVO: OQ sFLAG SET TO 1 WHEN DRIVE O PRESENT - 
DRIVI: ‘FOR pate 4 
Rety : *FOR 
IV3: sFOR DRIVE 3 
DRIV4Y: O see DRIVE 4 
BRIVE: : “FOR IVE e 
DRIV7: O sFOR DRIVE 7 
LCLKF: sL-CLOCK FLAG PRESENT AG 
PCLKF : :P=CLOCK FLAG PRESENT FLAG 
DOTIM: QO : SET IF EITHER CLOCK PRESENT FOR TIMING TESTS. 
SIZFLG: O : SET IF DEFAULT DO SIZING IN TEST 1 


SEQ 0029 


UNIBUS RKO& DRIVE DIAGNOSTIC 
OZR6EHB.P11 ERROR POINTER TABLE 





l 
] 
1 
1 
1 
1 
] 
i 
l 
1 
1 
1 
1 
1 
| 
l 
l 


S 
45S 
456 
457 
458 
459 
“1 
464 
$ 


OO44S4 
004464 
OO44 
ooze 
004474 
004476 
pave 
004S04 
DONEI6 
0045 le 
14 
004S2e 
004Se4 
O04S26 
OONs32 
a 


R SARS ANRR See 
Fees FESR FESR ae 


ee Se SNE 
3 #25 


Ss 
FES 


2 


PART 


l 
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-SBTTL ERROR POINTER TABLE 
ETHe ane Graaf on Ts oevRrheD By UbiNc The Thbex nana FOUND ggeur. 

ate on, aly pent trent pata THE TABLE IS PERTINENT. 
EACH TEN Ik THE "FABLE. CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


+ SNOTES 
.# EM s;POINTS TO THE ERROR MESSAGE 
- DH ssPOINTS TO THE DATA HEADER 
+ DT *sPOINTS TO T 
.# OF :sPOINTS TO THE DATA FORMAT 
SERRTB: 
sERROR 1 
ai sDR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMRe 
OT! 
OF 1 
sERROR 2 
EMS sDETECTED MDS 
DH1 
DTl 
OF 1 
sERROR 3 
EMG *DETECTED UFE 
DH1 
DT1 
DF 1 
sERROR 4 
nf sDETECTED DRA & NED RESET (WRONG PORT SELECTED?) 
OT! , 
DF 1 
sERROR S 
Pe sDR PRESENT BUT NOT SPECIFIED BY CPERATOR 
DT1 
OF 1 
sERROR 6 
Mt sDR NOT PRESENT BUT SPECIFIED EY OPERATOR 
a 
l 
sERROR 7 
he sABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 
Bi 
l 





Seo 0031 


BOS 
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MACYI2 €7( 732) 


fs 


DIRGNO 
R PO 


SNOSTIC PART 1! 
ER TABLE 


UNTBUS RKO ORI‘ 


OCREHS. Pi) 








Uy 


-AFTER UNLOAD COMMAND. 


sDRA & NED BOTH SET 
CONTROLLER NOT READY 
AFTER UNLOAD CMD 
-DRDY NOT CLEARED 


DSC NOT SET 
AC 
UNLD 


‘WRONG ATTN 


;NO_ATTN 


cus Pn Pro. oo aes 
OEESS ESGS wbESnn BESS BESS EESB ob keen Beebe 


PEEEEE 





ERROR 1 
sERROR 1 


fee 2 
me 


Bee eee e eer Radiant aninnaminammanimane OO 


Ce Re Re ae ol te Roe Kee Oe Dee oe oe oe te ee ee ee ee ee ee Re ee ee ee ee ee ee ee oe ee Boe Fee Nee Nee Dae Ken Coe Kee Doe De De Dae De oe) 











> - oe =e Cf K+ oe 


ee re eS Oa ee 


SEG 0022 


COS 
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R POINTES TABLE 


DRIVE DIAGNOSTIC PART | 


1 


Ee. 
z: 
5 


;MSG Be ERROR 
N UNLO 


+ 
$e 


Sinbaos 


ms 
z 
S 





ERROR 24 


‘AFTER SCLR 

sRLS DID NOT SET CERR 
;SACK SET AFTER RLS SENT 
sVOL_ VALID NOT SET 
sAFTER PACK CMD 

sDRIVE TYPE SET IN MR2 
sDDT SET IN RKDS 


;CERR SET 


;DTYE NOT SET IN RKER 
;OTYE DIO NOT SET CERR 


sDTYE SET IN RKER 


Bick bass geass Race Mare Breyten Bee Fare 


ETeTRI ET Cie eayate 


eo ee se 


SMe Be BS Oe ee We Be ee 


Sd at Ree Rat Ree Re he Red Kat Ree Ret Reet edt Rah Kee Kote Rook Dole Dae Be Kee Rees hee Boe Dee Ree Bee Roe hee he ee ee es ee ee ee ee ee ee ee ne Bee Foie Been Fore Been ban, hoe hao han ae kes ham ham eam heen) 


SSSR SSR AMER ROOT PPS PS RANT OTANI RISSE SEER EE 





mae eo eww eee lll ee 
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Pil SES 0033 

] he »C-D FARITY ERR SET IN MR 
] ] 
DF 
l s ERROR 
: “Era >SPAR SET IN CS] 
] Tl 
l c 1 
1 s ERROR: 
p 20: + sFAULT NOT SET IN MR3 
1 i Tl 
l c l 
1 “ERROR 

oC ' >C-D PARITY ERR NOT SET IN MRS 

8 

ins DTl 

> DF 1 

ERROR 4] 

600 : -SPAR NOT SET IN CSI1 
one t} 

c l 
60S O0S064 he SPAR DID NOT SET CERR 
eo 105071 Tl 
608 c 1 
609 . 


;CYL_ADOR IN RKMR3 NOT = RKDC 
;AFTER SEEK WITH BAD PARITY 


> 2% 2 B= f+ He 


;CYL DIFF IN RKMRE NOT=RKDC 


PEON 
NOU £ 
snfyges 
£ 


p+ B= fh 2 hs 
Wo 


;CYL ADOR IN RKMR3 NOT=RKDC 


23 


—4 
o£ 


DE Ged Pel 
& 3 tgoon= i 


oe 
- 


;CYL DIFF IN RKMRe NOT=CALDIF 


oe 


3 


sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED 
;AFTER RECAL CMD 





b= bs he Bh Be Fh 2 G2 Fo FF & = be = 6 = bb = Be 0 = fe bs & 2 B= Bm Bee § + Bo Bb Fw Bs BH 8h aH © 


REERE BURR RRS 


gos 


;CYL ADOR IN RKMR3 NOT CLEARED 
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644 





<p p- 





MERTEN Sle! 


MACYI1 27(732) 





01-OCT-76 10:34 PAGE 33 


;AFTER RECAL COMD 


;CYL ADDR IN RKMRS DID NOT REMAIN 0 
;AFTER OFFSET CMD WITH BAD SARITY 


;OFFSET IN RKMR2 NOT=RKASOF 
;HEAD DECODE IN MR3 NOT CLEARED 


“AFTER RECAL CMD 

-RKMR3 HEAD DECODE NOT=RKDA 

sNO_ ATTN 

-AFTER RECAL CMD 

-MSG B3 HEAD REG NOT CLEARED IN UNLOAD 
>MSG AQ ERROR 

‘AFTER START SPINDLE CMD REC’D BY DRIVE 
MSG BO ERROR 


>MSG Al ERROR 


°>MSG B81 ERROR 


;AT END OF HEAD LOADING 


SEG 0034 





Of 





[eRESSASRELTONE SRO DONS 
Gf i! 8 Os Ge 


bs b+ Be B= 2 Fe be bt Fs F=4 ee Bo 2 Fe Hs Pee Bs Fon fe Be be he Bae bee 
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SEQ 0035 


sNO ATTN 
sAT END OF HEAD LOADING. 


-FWD NOT SET WITHIN 60 SEC FROM 
‘START SPINDLE CMD. 


;AFTER START SPINDLE CMD & FWD SET. 


;FWO NOT CLEARED WITHIN S SEC OF MOTION 
;FROM START SPINDLE CMD. 


sAT INNER LIMIT FROM START SPINDLE CMD. 


S 


+ Bo b= bo bm Bee 







b> > f~ <2 § 2 bew Po P= pe 
SHudvuvase 


SELSRSORE 


b= 2 fo B= boo h-hh oe 


— 





RERRRARARSS: 
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RRREN ERE SERNESERE 


Pipe ON ERROR POINTER TABLE” 
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z 
WwW 


bee ae 
aha > S23 5 


ps3 


sERROR 


oe 

— 

— 
AG 


be 
WH 





GOS 
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sFWD NOT SET WITHIN 4 SEC IN RTZ PORTION 
-OF START SPIN CMD. 


;FROM OUTER LIMIT TO CYL O DURING LOADING 


sMSG AD ERROR 
sAFTER SEEK WITH BAD PARITY 


;SG BO. ERROR 
‘AFTER SEEK WITH BAD PARITY 
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OZR6HB.P11 ERROR POINTER TABLE SEQ 0037 
1 sERROR 1ll2 
1808 062361 Eft? 
: na pr “AFTER OFFSET WITH BAD PARITY 
é 
1 sERROR 113 
1810 EmM18 
181 1S 
181 1 uF} 
181 ‘lb 
ae s ERROR a 
i ye ue sAFTER LOADING HEAD REGISTER & SEEK CMD 
1 3 18 
81 sERROR 115 
bus 
l 
1 TS 
DF 19 
sERROR 116 
1 eile *CONT NOT RDY 
ye sAFTER PACK CMD 
aT Tl 
1716 DOF 10 
sERROR 117 
1 EMl2 sCONT NOT RDY 
DH20 sAFTER SEL OR CMD 


et hs 
es 
> 
m 
ORS 
pee foe 
—TM oO 


eit 


é 


;AFTER SUBSYS CLEAR 





© 
— 


SSR 
ees 
™w © 


b= b> 
se 


f 
m 


;AFTER START SPINDLE CMD 


— 
Rae 
oO 


pine 





£rT 


;AFTER SEEK WITH BAD PARITY 


. se cS 
Gane es teas bat po 


sAFTER OFFSET WITH BAD PARITY 


wa 
t— MUpr—- m= b= o> pe 
-—- uu 


“ru 


;AFTER RECAL CMD 


b= He Go pe 
oO 
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BERR RG Re bes Eo SBN OES Bes MOOR ES ons 
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Sec tiincck reer eeertt ttt tl he RERERERE aad tae cata és 


ds & 2 he f= ho be Bs Be hs fs FB me he ho Bem Fe P= bw ew fn Be he = Bo Be Be bam Ba ho Re hw him pe bs Be Be 


1 
He 
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FS OE UTE et 


Me 





ie 
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ae 
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GSS 
oOo ao 
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sNO ATTN 
sFROM SEEK WITH BAD PARITY 


NO ATTN 
sAFTER OFFSET WITH BAD PARITY 


;CYL DIFF/OFFSET IN RKMRe NOT CLEARED 
R SCLR 


: AF TE 


;CYL ADDR IN RKMR3 NOT CLEARED 


sNO_RDY 


AFTER SEEK CMD 


sNO ATTN 


sMSG AD ERROR 


;MSG BO ERROR 


;MSG Al ERROR 


;MSG B1 ERROR. 


;sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED 


;CYL ADDR IN RKMR3 NOT CLEARED 





shy 


SES 0038 








UNIBUS RKOG DRIVE DIAGNOSTIC 
OZR6HB.P11 POIN 
191 7743 
191 1260 
fat 0060S2 071716 





00:0: .0:0.0:0.0 0.0.0.0. 
BREBRE SNRs 


RA ta ta aa eial alles BER gb hah Ait tp 
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SES 0039 


;20 SECTOR FORMAT NOT SET IN RKMRe 
;SECTOR O NOT FOUND WITHIN SO MS 


;DIFF SECTOR NOT FOUND WITHIN 3MS 


;BETWEEN SECTOR COUNTS 


;MS3 Al ERROR 
;AFTER SEEK WITH BAD PARITY 


;MSG B1 ERROR 


;MSG Al ERROR 


sNO RDY 
sAFTER CLEAR CMD 


;MSG AD ERROR 


>MSG BO ERROR 


UNTBUS RKO& DRI 
Pll 


l 


RRRUSNNa Urns nes aR aR RS DRC Bae SAREE RSM am eR ROR REE IS ISIS 





Ph 


cess SORE GSO Go RS EE 


aon 
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POINTER TABLE SES 0040 
Of! 
OFS 
sERROR 1S4 
Res *ATTN NOT CLEARED 
OTe 
DOF 11 
a IDAE NOT CLEARED 
067466 17 -AFTER RECAL CMD 
poise OT] 
1716 DF10 
sERR 156 
peri zs EMle sCONT NOT READY 
1153 DHS1 ‘AFTER SEEK TO SELF 
071260 OT] 
071716 DF10 
sERR 157 
eres EM13 sNO ATTN 
1153 DHS1 
071304 DT2 
071732 DF 11 
sERROR 160 
065240 ht “LIMIT DETECT NOT FOUND 
1260 OT1 
1556 OF 1 
sERROR 161 
062361 EM17 -MSG AO ERROR =e 
DH38 sAFTER LIMIT DETECT 
‘ep DT 
1 DF 
sERROR 162 
pee t0e EM18 >MSG BO ERROR 
1 OT 
Oriere BES 
—— ‘es MSG Al ERROR 
Ps T 
1 
sERROR 164 
aN -MSG B1 ERROR 
1260 OT1 
1676 OFS 
sERROR 165 
062233 13 sNO ATTN 
or OTe 
ise DFil 
sERROR 166 
EME0 sHEADS HOME NOT FOUND 
DH38 
1260 OT! 


z 
a 


TET SSSEEPREEE TLL La rresee eres ce ore scee 
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ERROR POINTER TABLE 


ies Gaps Goes Os Hs Ge Ee 


fais Gali & 


071716 


065336 
74 


17] 
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SEQ 0041 


;LOAD HEADS NOT FOUND 


;FORMAT Teer BYPAS 
sLIMIT DETECT ERR PREVIOUS TEST 


;NO 9 
;AFTER READ HFYDER CMD 


sCYL DIFF/OFFSET NOT CLEARED 
AF MD 


TER READ HEADER C 


sDLT ST 
sCERR SET 


sCYL DIFF _NOT GLEARED 
*AT OADING 


OF HEAD 


;CYL ADDR NOT CLEARED. 
;FORMAT TEST BYPASSED 
;COULD NOT READ BSE INFO 


sNO RDY 
sAFTER WRITE HEADER CMD 


sCERR SET 


Seay 


SOO NTN LW OSS IER EOU—S 


rurururururururorururururorufururururururururururfrurururururfurfurururururururururyu 
PRE EOE TEST Ee mm mmm mmm HS 
~~ 


CB ED NOU Cahora OB NOUN Score 


i 
| 
| 


RKO6 ORI 
Pll 





ERNE le 


065503 
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OFS 
sERROR 215 





sCYL DIFF _IN R 
;DURING SEEK CMD 
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SEQ O04e 


;READ HEADER ERROR 


;MSG AD ERROR 
DURING SEEK CMD 


;MSG BO ERROR 


sMSG Al ERROR 


;MSG B1 ERROR 


sCYL_ ADDR IN RKMR3 INCORRECT 
AFTER SEEK CMD 


sCERR SET 


;READ CYL O HEADERS ON CYL 1 


KMRe NOT = CALDIF 


;MSG AD ERROR 
DURING RECAL CMD 


sMSG BO ERROR 


c 


fury 


OSwNFNEWMES 


ui 
~-~ 


rurururururururururururururu 


Reo SSSRRRISR=—SIsrIeRuz2ZIn—-SSoGEHREG_ SSSR ALYH 


rrvrurorururururururururorurururururururururururururururururururururufururururu 
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ERROR POIN 
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7 
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;MSG Al ERROR 


;MSG Bi ERROR 


;CYL DIFF IN RKMR2 NOT=CALDIF 


;CERR SET 


“AFTER RECAL CMD 


;MSG AO ERROR 


;MSG Al ERROR 


;CYL DIFF/OFFSET IN RKMR2 NOT CLEARED 
sCYL ADDR IN RKMR3 INCORRECT 

sREADING CYL 1 HEADERS ON CYL O 
APTER READ DATA CMD 

sCERR SET 


sDTE SET 


DaRGHE.PLI ERROR POINTER 







£ 
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+. 
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;ERROR eal 


:DLT SET 


;CYL_ADOR IN RKMR3 NOT=RKDC 
AFTER SEEK CMO 


ton SCT 0,2,4,6,8 


;ON SECT 1,3,5,7,9 


ALIGN CARTRI USED 
TUL BYPASS PoRNAT 8 ALL R/W TESTS 


;UNEXP MEM PARITY TRAP 
sTEST #, TRAP PC 


sDSC SET 
sAFTER DRIVE CLEAR CMD 


sREAD CYL 1 HEADERS ON CYL O 
sAFTER RECAL CMD 

*>RKMR3 NOT = RKDC 

sAFTER SEEK WITH BAD PARITY 


;CYL DIFF IN RKMR2 INCORRECT 


;CYL ADOR IN RKMR3 INCORRECT 


SS Se = a ee) ee 


SES 0044 


a 
e 
- S 
@ z 3 

Be ce ee S 
ite Bee Boros a : : : : m 
oe ee 2 ts 9 9 g = = = 
= Na ati 4 | 3 a. Pr = = - 
Sa Sa Pa Boe tare Bes ee Foe Go Be Ere 
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STIC. PART 1 
POINTER TABLE 


—s aye be tity: BOBR ae a o25 8S 
JUS 

SQ S853 SAad GARY BARE TRAY GRBY ZBRK a Bice Bete & 
:: “on ‘BEES hein S885 S888 S858 


Ait 
“ Hr 
a} 











PART | 
TABLE 
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OT4 
OFE 
sERR 257 
EM36 
§ 
TY 
6 
sERR 260 
HM 
bre 
: 261 
M18 
DOT1 
DFS 
sERR 262 
EM77 
Tl 
DF 10 
sERR 263 
EM78 
14 
T8 
OF6 
sERR 264 
EMY 
Tl 
10 
sERR 265 
EM18 
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;CYL ADDR IN RKMR3 NOT=RKDC 


;FAULT NOT CLEARED 
SAFTER ORIVE CLEAR CMD 


;CYL_ DIFF IN RKMR2 NOT=1 in SEEK TO SELF 
AFTER SEEK WITH BAD PARITY 


sCYL ADOR NOT CLEARED 
;AFTER READ HEADER CMD 


;MSG 80 ERROR 
sAFTER ORIVE CLEAR CMD 


;MSG B1 ERROR 


;AFTER WRITE HEADER CMD 


;AFTER READ HEADER CMD 


SES 0046 


SPER 
Os Oh 0 0 ee 
WONG LUTE 









SIRS AS ERTS 


071676 


ae 
o 
N 





cl 
1 


Aw 


as 
CEE ot 






es b= 


oe 
Ne 
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~ 


sos RSS BE 
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DFS 
sERR 27 


ify 


OFS 
sERR 273 


OF 
sERR 274 


3 

a 

a 
9 


QafS 
wDe~ r= 
No 


sERR 277 


a3 


APTER ORV CCR CHD 


;MSG Al ERROR 


DPTER RECAL CMD 


;MSG 81 ERROR 


SAPTER WRITE HEADER CMD 


MSG Al ERROR 


;AFTER READ HEADER CMD 


Pat 3a a 





;CYL ADDR NOT CLEARED 


SEQ 0048 


ay 
a Be 3 
Silja he AB ea 
ft 52 re oe aH 
SEE wee & 
3 af =f “-— a Bo Oe 
T 
3 
y 
: S Esce _ ode space Babs Bees Bec Bebe Bees 
: 3 a et ee ee eee ee 
2 & & Fook en bed ed ey 


ZEEE BEE eS 
| SRR eee 
o PRC CEEREEEEEERECEEREEREREREEERREERERERRER EEE: 








ae Oe OS OOO eee ne SO OO Nee 


———_—— Se 6 ee - Oe = 


ERROR POINTER TABLE” 


= 
$ 


001356 


fis S59 Sea Ges aes 


Duca ase OS Fl 
a ee ee 
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qassseses & 
a 


ae 
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Yee thet Band Ot Gece frat bm Gs Peo 


a LE CREE EPEE CEE ECP 1 EEREEERLEEO EE? Be 
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-SBTTL PROGRAM SETUP 


PARSRT: MOV 


CLR 


BYTI6: 


BYTI6A: 


MOTST: 


S 
SSpONENERS WEEE SEE ERE ee 


8) 
“4 
~ 


ak 


STACK 
A FEW 


#1, PARAM 
BYPTIE 


PRESRT 


OI BY T16 
mob TST 
PRGSRT 


SSTACK, SP 


-(SP) 


i SCTE Se 







sIOT 


;SET FLAG FOR 220 START 
; START PROGRAM 


;SET FLAG TO BYPASS TEST 16 


;CLEAR FOR 200 START 


;CLEAR ALL INT ENABLE & INIT 
: SETUP a 


tet 
LOCKOUT ALL INTERRUPTS 


a 
;;FIRST LOCATION TO BE CLEARED 


, ;;CLEAR MEMORY LOCATION 


;;LOO0P BACK IF NO 
;;SETUP THE STACK POINTER 


C 55107 fo FOR SCOPE ROUTINE 
c’! ib VECTOR FOR ERROR ROUTINE 

ye FOR TRAP CALLS 
4 ine, 


C POKER oF ALLURE VECTOR 


pHLEVEL Zio og 
Sr eCABE 


RUSTE USE ot ear ac 





SEQ 0049 


a Se ee 
f 
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OZR6HB.P11 INITIALIZE THE COMMON TAGS SEG 0050 



















2522 010122 112737 000001 001115 MOVB #1, SERMAX ONE ERROR PER TEST 
ceei HIRLS Glerae GIRLS SRLS Yt BU ye ee on 
seep :3SIZE F OR A HARGUARE ri REGISTER. ToultOn fe Oh IT 1S 
010144 01374 “ ss S0NE 
ie tie tet Bie BY eee SE na 
e772 177777 170740 che Fe tinea Ve 
010202 900403 BR 65S aed NO TIMEOUT > nots = 
ater 12716 o102l12 64S HOV a65S, (SP) BAe UP FOR TRAP RETURN 
UTES wa arg eB agony w are a 
bi bi Bo00eY 665 MOV (SP)+, J#ERRVEC ”  -RESTORE ERROR VECTOR 
5eq3 bites tas737 bpds08 001231 erve saPTSIZE, SENVM {TEST useR SIZE UNDER APT 
an Oleg Bie7a 001232 001140 =i MOV SSSMREG, SWR a Suge SWITCH A RECT ISTER 
sou 010254 012737 010314 900004 MEMPAR: Ov SIS ERRVEC ;SET TIMEOUT VECTOR 
seu 010270 012737 000001 172100 MOV #1, MEMBAS ; LOAD REG TO DETERMINE IF 
a : 012737 953214 900114 HOV RTENECE {LOAD MEMORY CHECK VECTOR IF NO TIMEOUT 
oo 010312 000401 BR 
a BIBLE FE ccm coco HY Beet Savec!™ S*esrone raw carve 
2559 010330 047334 JSR —- PC, CLRFLG sCLEAR DOUMP THRU SIZFLG 
e560 Biba posta? 091220 CLR SDEVCT 
1 010340 001 CLR —- SUNIT 
2 :FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 
1 START1: TST 42 
255 i Ps TITLE i FANUA RUTYPE ID 
i trea i’ ST SSLOAOED BY 
2571 O01 BNE 2S oa 
ae a Tree ifsae i REPLACE DRO P PACK CK H/SERATCH & DO<CR> 
2575 Ot 1s: IMP —s«ST3 ae 
e576 1 : INC _—s— PPTP SET ACT/APT/PTP DUMP MODE FLAG 


| 
| 
| 
| 
| 
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UN 
TAGS SEG 0051 


= 


Pl 


os 


;CHECK I es et ED. IF NOT, TeefED INPUT 6 
; WITH OPERA ATOR. ARTE REPLY 


lve SEE WG Mea Tah 





1044 001356 — TST PARAM 
1041 1 BNE 1$ ;BR_IF 220 START 

1 1 0 JMP STY START, oe Testa SIZE THE BUSS 
l 1S: TYPE MSG3 : DR ves 19" 

l JSR PC GDRVS ‘GET 

1 104401 106 TYPE mSG4 : BUSS ADDR” 

CLOWN 004737 ase ISR PC, GBA GET BA : 

Bt Buea ‘ar JSR Pc. GINT <GET INT vEETOR” 

010454 000427 BR STs 





Be 
2594 
2595 
-AUTO MODE 
-CHECK IF LOADED BY XXDP OR OTHER. SET FLAGS 8 NO INPUT DIALOGUE. 
: DEFAUL ALL PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY 
-O0N THE BUS 
eo0e 123727 000041 000013 ST3 CMPB «41, #13 :13=LOADED BY XXDP 
Sa eae 4 ita sopcH SET RKO& CHAIN MODE FLAG 
ete Bras ei Payne 
TYPE MSG :DRO NOT TSTD 
2608 PR 614 
gb03 E 004416 1$ INC ACT1I1 sSET ACT AUTO FLAG. 
1 1 001264 STY MOV #177440 sDEFAULT VAL 
ele ptse 3s hao 01334 MOV $10 RKUEE - *DEFAULT VAL 
2613 Ol 004737 047614 JSR PC, SETINT 
e614 005237 INC SI2ZFLG :D0 “SIZE THE BUSS" TEST 
sib | 12706 1 | STS: MOV eSTACK, SP sINIT STACK 
1 l MOV #PR7, -(SP) -PSl LOADED 10 BE 
2618 1 MOV #5$,-(SP) *LSI-11 COMPATABLE 
2619 RTI ‘LOCKOUT ALL INTERRUPTS 
cs: MOV SDRIVO,ORVPTR ;SETUP 
th if iN, ORY TEST 
i HOV $35 TUP “ReOuT ctor VECTOR 
06 Ol MOV ted topn 
at pers rst -SEE IF P-CLOCK THERE 
o13709 MOV i ORESENT 3 
1 1 BR 
2633 022626 1$ CMP (SP)+, (SP)+ sL-CLOCK NOT THERE, CLEAR STACK 





DEREHS. Pil ORME NIT IALT : COMMON 


2654 pet 012737 010704 000004 


Be 








2 ae 
ae 
sri 010712 104401 
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seio Biter? 12710 
oat 
ate 


tase 27(732) 
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+" wees 

PCLKF 

PCVEC ,RO 
TIM 

#CLOCK, (RO)+ 

aPR?, (RO) 


(SP)+, (SP)+ 
3$ 


(SP)+, (SP)+ 
DOTIM 


»MSG13 


RE APE 
; INDICATES TIMING TESTS CAN BE DONE 
SERVICE ROUTINE FOR CLOCKS 

;;GO0 TO NEXT TEST 

;P-CLOCK NOT THERE, CLEAR STACK 
sNEITHER CLOCK THERE, Pare STACK 


sNET 
; TIMING TESTS CANNOT 
;ALL TIMING TESTS BYPASSED 


SEQ 00S2 


: 


ASRSS RAS AMA eats 


3 


ROG ROS 
~ 





o 
AZ3n 


es = b= be be Bb hm f= bo Paes be fm b= pe be 


poe 


pears 





010760 
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i =) 
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Pil Brie CONTROLLER Tests, 1 


~SSTTL BASIC CONTROLLER TESTS, SIZING & SETUP 


ee RE ee es 


tkTE 

: i 

: i THIS TEST VERIFIES THAT AL 

- ee nk SED. 

:* NA Fingout 

i FEEOS JN 

téTi: Sc 
MOV et Ug 
MOV aSTACK 
MOV * spre 
Wey RK Re) 
TST Kees ) 
TST RKWC(RS) 
ones 
tet ss BKDStReD 
Maser 
tet RRDC ERED 
TST RKDB(RS) 
TST RKMR1(RS) 
TST RKMR2 (RS) 
TST RKMR3(RS) 
TST CPS(RS) 
TST CPT(RS) 
MOV #BADTMO, ERRVEC 
BR TST2 

1$: Con (SP)+, (SP)+ 
JMP SEOP1 

+ ATEST ra SIZE THE 


cae Gee Ge Gee ee 


eayreprepregrerreprenremrearearsyn 





LUST BAAR fake 
DRIVE” FROM 0 THRU 7 


Prey Enc WILL Are tay 


Leepgepnnnnnnnsssoszonesssesseserssssrecrreceeseqenannensnanenee 
REFERENCE ALL CONTROLLER REGISTERS 


REGISTERS 


eat LI TY. To Be AccESSED _, 


TiS TEST Top RESULT Bil ABORTING ALL OTHER. 


D0 1 ITERATION 
*RESTORE STK PTR 


;sSETUP TIMOUT ERROR VECTOR 


SETUP INDEX ‘-“: 


SonTRO CER REI TERS 


eee IN THIS SECTION 
THAT 


feTGTERS CANT BE ED, 


sUNTIL THIS IS REMEDIED. 


sSETUP TIMEOUT HANDLER 
:3G0 TO NEXT TEST 


sRESTORE STACK POINTER 


;ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 


DRIVE SELECTION’ 
OR A 200 ST 


DEFAULTED 


IN THE 


SPE ESE I Pt 


mah HEN li ; Bp neD OR RESET - 


sp REREREREELLELEELLERELL LAER RALE LALA LELLLALERALLA LARA LL RERLAL AEE 


nt , 
x eas a= 


ee 00S3 


r 


me | 
~ 


fos poe fe h 2 pe Bas 


Des Pas b+ bs Bs be pes pie po te 


RENE EEEDRS SEER SE EY SEY SASSSAISSAS SA NIARANSARESRRRTSS BEE 
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SO 
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#1. STIMES *:D0 1 ITERATION 
aSTACK, SP -RESTORE STK PTR 
#SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
T10, TEMP! 
PC. FRDY sFIND RDY 
120 “RDY NOT SET BY END OF SCLR 
SIZFLG 
TST3 ::DO NOT SIZE, GOTO NEXT TEST 
MSG10 ‘WILL TEST DRIVES 
DRIVS -# OF DRIVES PRE 
#ORIVO,RI1 “DRV FLAG 
#STACK, SP sRESTORE STK PTR 
#SCLR,RKCS2(RS) ;SUBSYS CLEAR 
T10. TEMP! 
PC, FROY FIND ROY 
1 -RDY NOT SET BY END OF SCLR 
RO,RKCS2(RS)  :SELECT THE DRIVE ADDR 
#SELDRV, RKCS1 (RS) 
T10, TEMP 
PC. FRDY sFIND RDY 
11? “NO RDY AFTER SELECT DR. CMD 
ACER, HCSI 
HMRe, TEMP 
##C<DRVMSK> , TEMP1 
RO, TEMP -S/B SAME 
2§ 
F 
DOPCH :SEE IF XXDP CHAIN MODE 
ORIVS sINC DRIVE COUNT. 
(RI) -SET DRIVE PRESENT FLAG 
SCRLF 
RO, -(SP) SAVE RO FOR TYPEOUT 
: 
=:GO TYPE--OCTAL ASCII 
l ;;1YPE 1 DIGIT£S) 
O. >: SUPPRESS LEADING ZEROS 
PC, BYP -TYPE BYPASS DR # 
1 ‘SELECTED DR # DOES NOT MATCH RKMR2 OR # 
(R1)+ -SHIFT PTR TO NEXT DR. FLAG 
RO ‘INC DOR & 
#8. ,»RO 
1$ sMORE LEFT. 
ORIVS 
10$ 





SEQ 0054 


2 
a 


ULL USSeESSESERSSESEERESY SERRE SRRESEEEREEE é 


ONO £ wre 


7 oS So os er ee eae 


’ 


RINtheRS Se B 


<= 


che © 


Ps 


RSS HESKE SHAR Fe 


Base bo ps Bee beat bens fm bs heen f-2 Ga Bs bee t+ pmo f—- bs bos pee fee Ge be p= es Be 


bs t= ba bs $= B-> be Peo Bae es bp ba fo Pes Dee 


¢ 


——oO—— o> ee 
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SIZE THE BUSS 


06051e 
047ele 
001000 
000400 
000001 
010000 


osde42 


O1e0le 


00000 
0011 


004340 
004340 
004350 
004340 


004340 


001174 
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SEQ OOss 

TYPE MSGle » NONE 

JMP $E0P1 
2$: BIT #MDS,HCS2 

BNE 6$ 

BIT #UFE,HCS2 

BNE 7 

BIT #DRA, HDS 

BNE 8S 

8] #NED, HCS2 

BEQ 9g 

BR S$ 
6S: JSR PC, BYP -TYPE BYP DR # 

ERROR e. -MDS DETECTED 
7S: JSR PC, BYP 

ERROR -UFE DETECTED 

BR S$ 

8S: BIT #NED, HCS2 

BEQ 4g 

TYPE MSG1S -DRV# 

V RO, -(SP) SAVE RO FOR TYPEOUT 
ii TYPE OR# 

TYPOS -:GO TYPE--OCTAL ASCII 

.BYTE 1 :: TYPE 1 DIGIT(S) 

-BYTE 0 -: SUPPRESS LEADING ZEROS 

ERROR 10 -DRA & NED BOTH SET 

BR o$ 
9S: JSR PC, BYP 

ERROR ‘ sNO DRA & NO NED = OTHER PORT SELECTED 
10$:  JMP UNLDRV 
+ RKESERELE RE REESE ERE LRESE ESLER ER ELLE RARE ELE SS LAE LRG ELF HERES S ESE SES 
: ATEST 3 VERIFY OPERATOR DRIVE SELECTIONS 
: i THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 
* x DEFAULTED. EVERY DRIVE FROM 0 TO 7 IS ADDRESSED & 
* ONTROLLER ERROR (CERR) IS EXAMINED. IF NOT SET. THE 
* x PROGRAM WILL ASSUME THE DRIVE IS PRESENT. IT WILL THEN CHECK 
: TO SEE THAT THE DRIVE WAS INPUTTED FOR TESTING. IF NOT. IT WILL 
* AN ERROR. IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED 
: Y_ IF THE ERROR WAS A RESULT OF MOS OR UFE SET OR BOTH 
: & DRA RESET (WRONG PORT). IF CERR IS A RESULT OF - 
* NED ONLY, IT IS CHECKED AGAINT THE INPUTTED INFOR TO 
if VERIFY If WAS NOT SPECIFIED. 
i ee a 


MOV #1. STIMES >:D0 1 ITERATION 
MOV aSTACK, SP *RESTORE STK PTR 
CLR RO ‘DRIVE ADDR 


PRR US tad unui e eee ree ee dsMciniahish ti ietshe e 


e 


ue p—~ bo fs ps 
p= b- © pa Bs 


bs me Pa B—8 Go bs ae ps pe pe po pie 


RETR OER GS LOS 


o 
cs 
ee 


b= be bf fm Fo Bt bo fe Be be Be he Be pe 


NSt BEPKBsS SKHSRENS 


oc oo 
r 


oR 


me 
£rTu 


Ge fas fear b= b= p< bo Bes fon fas f- 4 $8 Ge bt Be po Gas pee Gene bs Be 2 Be fame Dame Bae pb b= fp f= 
Oe BREKINI 


| 
| 
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VERIFY OPERATOR DRIVE SELECTIONS 


004424 . MOV 
SCOP! 

001100 MOV 
p00040 900010 MOV 
001434 o04400 MOV 
047632 JSR 
ERROR 

000010 MOV 
000001 MOV 
001434 904400 MOV 
047632 JSR 
ERROR 

100000 004336 BIT 
004364 OO440D MOV 
77770 OO4400 BIC 
400 CMP 
BNE 

11S: TST 

BEQ 

4S: TST 

INC 

000010 CMP 
BNE 

BR 

oso2e42 3S: JSR 
ERROR 

TST 

BEQ 

p04422 128: DEC 
CLR 

BR 

osoe42 cS: ISR 
° ERROR 

BR 

001000 004340 2S: BIT 
000400 004340 BIT 
000001 004350 BIT 

010000 004340 BI 
BEQ 

010000 OO4340 8s: BIT 
10S: aE 

BEQ 

oso024e2 JSR 
ERROR 


#ORIVO,R1 sDRIVE FLAG 
sSTACK, SP ‘RESTORE STK PTR 
#SCLR RKCS2(RS) 

T10, TEMP! 
PC. FRDY -FIND RDY 


-NO RDY AFTER SCLR 
RKCS2(RS)  :DRV ADDR 
aSELDRY RKC RKCS1(RS3 


PC een -FIND RDY 
11? :NO RDY AFTER SELDRV CMD 
#CERR,HCS1 


HMRe, TE 
sTCCBRYHSKO, TEMP 1 


RO,7 ;S/B SAME 

33° 

uf : 

(R1)+ SHIFT PTR TO NEXT DR FLAG 
RO s INC DR# 

#8. ,R0 

1$ sMORE LEFT 

TST4 ;:GO TO NEXT TEST 

Pc, BYP s TRY BYPASS DRIVES 

te) : WRITTEN DR# DOES NOT MATCH RKMR2 OR# 
4S sBRANCH IF NOT SPEC BY INPUT 
DRIVS : DECREMENT TOTAL DRIVS 

tad : CLEAR DRIVE FLAG 

PC, BYP 

Be ;DR PRESENT BUT NOT SPECIFIED BY OPERATOR 
S08, WOSE 

#UFE,HCS2 

7$ 

#DRA, HDS 

8$ 

#NED, HCS2 

9$ 

10$ 

#NED,HCS2 

11$ 

(R1) 

4$ 

‘outed TYPE BYPASS DRIVES 


SEQ O0SE 





BOG RE Pi ln DA in 





011760 900735 
050242 b$: -TYPE BYPASS DRIVE 
‘MDS DETECTED 
oso24e 7S: 
-UFE DETECTED 
os0e42 98: 
-DRA & NED RESET - OTHER PORT SELECTED 
UNLDORV: 
 SSSESEESESARELLEASELESLSSSSSASSSSSRASLESASSAESSRESSRSERRSSESSELESS 
jATEST 4 UNLOAD ALL DRIVES TO BE TESTED 
:§ at arin b veniries 11 ca Pree TH ORRECT DRIVE i a N 
: RPPROX 160 a okoy's DSc IN-RKRO SRE CHEEKED 10 ge 










Fo nsangeressassashansesnacetSISSSR 

001174 MOV #1, STIMES ss TERATION 

MOV aSTACK, SP ‘hpSTORE STK PTR 

RO : ADDR 
oe eORIVO, RI i DRY FLAG 
1S: 

SCOP 

MOV sSTACK, SP sRESTORE STK PTR 

MOV RKCS2(RS) 
Boa MOV TOC HERP 

JSR 110, Tee sFIND ROY 

ERROR -NO RDY AFTER SCLR 

se (R1)>¢ 

MOV KOSI (RS) UNLOAD. 
eeaeeaee 
MOY40C T10 

NOR fy FIND ROY al ou 

Fe ae HASOF +1 Pismo Bits 
004355 SS: I d TN(RO), wasore1'"? T T'rOR SPECIFIC ATTH ATTN 

oh te THERE 
1 “WRONG ATTN AFTER UNLOAD CMD 
004364 2S: if 80. DRDY, HAR 
ERROR 14 :D.DRDY SET AFTER UNLOAD CMD 





_-_— -— a I a ne ee 8 SE 8 te aS + Ce eR a ee Oe eee ee 
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OR 
Pil UNLOAD ALL ORIVES TO BE TESTED 
121 37 040000 004264 3S: BiT #D.DSC,HMRe 
181 190) eS | 
12162 10401 | OR | :D.DSC NOT SET AFTER UNLOAD CMD 
12164 4$: sINCR DRIVE ADOR. 
biSiee Bede? 000010 tHe ORO, a8. 
12172 901320 SNE «18 sBRANCH IF MORE LEFT. 


Tats PART OF THE PROGRAM WILL BE REPEATED FOR EACH 
“DRIVE PRESENT 

j SUNIT® CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 
‘UNDER TES 


NUDRV: sENTER HERE FROM LAST TEST 


ss FELEELLSLEFLELLLELELELELLLLLLALALLLELELELLEAELELELA SAS ERELEALEE 
; ATEST 5 FIND NEXT DRIVE TO BE TESTED 


hel THIS test FINOS THE NEXT DRIVE PRESENT & PUTS THAT 


a 
;* OLLOWING TESTS, THE DRIVE TESTED IS 
# THE DRIVE WHOSE ADDRESS IS IN "SUNIT’. 





KEFLLELELELASLELLLLALALASSLALALELLLELE 









ETT Ce tt tees errreeseeeeeee tone 





12174 SCOPE 
1217 Ol MOV #1, STIMES >:D0 1 ITERATION 
l l MOV TACK, *RESTORE STK PTR 
l 19 l MOV sS$TN-1, STESTN 
Oleelé Ol MOV eSTN-1.STSTNM 
1 TST DRIVS sANY DRIVES PRESENT? 
1 : OE CSI EE DRIVES. TESTED 
ices 001 N72 rf Imps SEOP NO, GO TO END 
~ TR,R1 ; 
pies Ge i ‘ er 
| tol ea: : 
004414 r 
001222 TST SUNIT : 
1 A BEQ : 
1 1 3$ MOV 1 TR 
1 i 10 o A 001 hove sini? Ro : 
isis iBone HOV RO, -(SP) : SAVE 
2585 8 ee 0b; Me 1 $300, IVE 
2986 012321 000 “BYTE 0 : : SUPPRE 





or e223 © em oe oe * -—— © « - = ——. — ow owe OS 








SES 0058 


~< 
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DRENS.PLi “ts IND NEXT DaIVE TO BE TESTED SEG 0059 


Olesee 104401 001205 TYPE » SCRLF 


012326 PFSRT: ;ENTER HERE FOR POWER FAIL RESTART 
~SBTTL STATIC & CYCLE UP TESTS 


: SSEEESFRELRESAESELALERASSAALESESSSSSELSRESELALASESRESSSESSESESSSESLE 
sATEST 6 REFERENCE 8 CHECK ALL STATUS BYTES IN RKMRe & 













+ THIS TEST WALT FOR APPROX Soke fot 06 Uo, Fron Toe Ee 
; TION & To LOW F FROM THE ’UINLOAD’ GIVEN 
;% eVious Tes IT T cKS ABT " rio REFERENCE ALL 
- RIVE REGIS AND THAT they Cb CONTAIN CORRECT STATUS. 
SPRELEEEES SHEL EELPRE PH FSEPE PRA SFARELEEGREEGDG FELEEEEPS FADES ESEEE 
tee: SCOPE 
MOV 81, STIMES -:D0 1 ITERATION 
MOV —-aSTACK, SP tApSTORE STK PTR 
JSR -SUBSYS CLEAR 
Te ERROR *CERR AFTER SCLR 
005 MOV SETUP FOR 10 SEC. DELAY 
DIC 18: MOV -ALL 1°S 
l MOV : 
ie es: JSR 
j BIT “CHECK SPEED 0K 
a if 
i 
l DE 
) Bion SPEED OK OT CLERRED 
218 = SPEED OK NOT CLEARED 10 SEC AFT UNLOAD 
302 : SCOP! 
001100 MOV sRESTORE STK PTR 
JSR 
= ERROR -CERR AFTER SCLR 
0502S6 JSR PC, GSTAT TATUS 
es 000100 004364 BIT : WV, HMRe ; F VALID SET 
1 000040 004374 MOV DRA, SBMR2 a BE VALUE 
0S2S04 ISR PC, CKMRe Ce 
ERROR 1 AD ERROR FOR DRIVE UNLOADED 
40 004374 4§ MOV 8<D.DRA!D. VWV> , SBMR2 
heer JSR PC, CKMRe i¢ CK 
ERROR 16 AD FOR DRIVE UNLOADED 
004376 sy CLR SBMR3 — BE 0 
3041 0S2S66 JSR PC, CKMR3 ;CHECK RK 
2042 ERROR 17 :MSG BO ERROR FOR DRIVE UNLOADED 
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REFERENCE 8 CHECK ALL S atus BYTES IN RKMR2 & RKMR3 SEQ 0060 
aa 012520 104415 SCOP 
3045 Ol2Se2 012706 001100 MOV aSTACK, SP -RESTORE STK PTR 
ee sess ‘ ERROR 24 -CERR AFTER SCLR 
000026 (RS) T WORD | 
ra TSR pe? Reta tie 
004374 MOV 8<0.HDHM!D. BRHN! CART> , SBMRE 
cont 0S2S04 JSR Pc. CKMR2 
l ERROR 20 ‘hee A Al Rit FOR DRIVE UNLOADED 
1 004376 CLR SBMR3 RMR SHOULD BE 0 
1 052566 JSR PC, CKMR3 SCHECK RK 
1 ERROR 21 *MSG B1 ERROR FOR DRIVE UNLOADED 
O13e7b ROV 
l 001100 MOV #STACK, SP -RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR -CERR AFTER SCLR 
000026 82,RKMRI(RS) § ;SELECT WORD 2 
JSR PC’ GSTAT sGET STATUS 
os Bicone «= Bete eee? 
3070 ERROR 22 “MSG A2 ERROR FOR DRIVE UNLOADED. 
-RKMR3 BE 0 
ie Te 
3074 ERROR 23 °MSG Be ERROR FOR DRIVE UNLOADED ea - 
3075 ' f 
ROY SSTACK, SP -RESTORE STK PTR + 
107° JSR PC, SUBCLR 
ERROR 24 sCERR AFTER SCLR 
» RKMR1CRS) : T 
es oes RATA 
004374 MOV SBMR2 
DE 004374 eI ac POR PAR'7>, SBMR2 off ihtly : DRV ADDR 
ERROR Cr -SUNIT IN CS2 DOES NOT MATCH RKMR2 
a HMR3 
maa te BTCA. READ Tow! 
: : or a es TO NEXT : oF Ape” 
ERROR 56 t HEAD REG IN hext Tat i 1 CLEARED IN UNLD 
ae : lat?” « dant Gant [oan oe eee 
32097 ATES PRINT DRIVE SERIAL NUMBER 
l 
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PRINT DRIVE SERIAL 
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we TEST READS & PRINTS THE DRIVE SERIAL & FROM MSG A, WORD 11 
N BCD & IS PERFORMED ON THE IST PASS ONLY 


itittiitiitiiiiittiiiittiiiiitiiitiiiiiiiiiiiiiiie 


a: 


a Gd 


& +0 +h -4 >< B—2 B= B-< p< p-- p= 
4 
w 
4 


BBURRIBRLS 


Oooo e200 
Ge bab he 


Bay Jeze 


SAR ERODE TeSRORE INC 


ooo0o0nm 

em ee bes Pee Bes Ps Bee p+ Bee 
ooo 
jae 


foe == Boo 


IOI) OI GIG) CI GIGI OI) CII) CI CII) CII) 
$= f= b> =< b~< B= p—— B-> pe Ho 
ee See ee ee oe a er ed 


Siam Nou euro 


Tu 


ee 
eat Bat fens Doe 


Qo 
P= G2 be 


SBBBEELIIIGEY Buk 


eeiacees 


Bar hs Gem Be Fat Pe aw et Bee be Ge be pw Bee 


7 






#1. $TIMES ITERATION 
aSTACK, SP ‘RESTORE STK PTR 
ore G0 TO NOT FIRST PASS 
Pe. SUBCLR sig? supsye CLEAR 
24 <CERR AFTER SCLR 
Cio a 
ety er erie 
TVL.RY BUFF 

RY, = j i: ORE ON STACK FOR SSUPRS 
RI Fe cae Sane POSITIONS 
Ri -GET NEXT 4 BITS 
i 
R1.RO -GET WORKING COPY 
#177760, RO “CLEAR ALL BUT LOW 4 BITS 
#60,R0 : T TO ASCII DIGIT 

, URYD+ *PUT ASCII DIGIT INTO CHAR BUFF 
ee) SBR INGER MULL TERHINOTDR 
PC. SSUPRS i RE 
, SCRLF 
, SCRLF 


tect 1D” SET WV ITH PRK COMMND ee 


SET VV WITH PACK C 


IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
7 ar," reece 





131% D276 


013144 004737 


GI) G) IOI) 0 I 0) I dd Gd CI I CI Cd GCI CI CI I Gd Cd Cd 
8 = bs Be be Oe Be Ban Oe Be Oe Fs be Bo he bo he Be he 0 2 fe be ae Fs Po be Be Be he ho Be Fe ee 


FON CSSHIFHESU-SSRVERESRHASBSVRRIOSH 


or 





ai S >:D0 1 ITERATION 
stack SP ‘he cTORE STK PTR 
RKMRI (RS) TE 0 
Pc, Gath iSELE an 
"vv, HMR2 : 
TSTil :2GO TO NEXT TEST IF W SET 
eSTACK, SP sRESTORE STK PTR 
PC, SUBCLR 


Doe 


b+ b= b-< — = B-< Be ho He 


SOoUERLER-SSeUER 





: 
: 
: 


~~) ~3~9 3 9-9-9 -9 ~3 Serr erererverver 
pmo 


WI GIGI WI GIGI GI GUI GI GI GIG) 
BsaIadzZand 


@ 
~~ 


III OIL CIEIEIED 
—SSSBIRRZGR 


P= Ba b= bo ht be be Gee fe ob = hs bas B29 = Hs hs Ga be 


SSP RSENS SSE GRAIN 


& 
Bs 
Oo 


; i 





013150 
ats 
aH 


013174 


l 


we 


104024 


OO14s9 
047632 


000100 


1100 





001100 


001100 


Beg OORT PO on BH?” 
SR 


004364 


001174 


004340 


000010 
004336 


004340 


001174 
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SEQ 0062 
ERROR 24 -CERR AFTER SCLR 
MOV SPACK,RKCSI(RS) ;CMD TO SET vv 
MOV TiO, TEMP 
JSR PC, FRDY ;BIND Y 
ERROR 116 *RDY NOT SET AFTER PACK CMD 
BIT #D. VV, HMR2 
TSTLl GO TO NEXT TEST IF VV NOW SET 
é “PACK DID NOT SET V.V. 
5 ; RHLAELLLELELELELETLLAFFELELELELELELLLLLKERELLALELALEAELERALELAE 
s ATEST 11 RELEASE DRIVE 
if TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK 
es SELEEELAESLEF SHAE KRELERERARA AS LELFTLF REFS RELL FERLFAERALAFHEF LES 
TST11: SCOPE 
#1, STIMES -:D0 1 ITERATION 
MOV eSTACK, SP ‘RESTORE STK PTR 
JSR PC, SUBCLR :DO SUBSYS CLEAR 8 GET STATUS 
ERROR “CONTR ERROR SET AFTER SCLR 
BIT sUFE, HCS2 
ERROR 5 sUFE SET AFTER SCLR 
1S: 
SCOP 
MOV #STACK, SP sRESTORE STK PTR 
JSR PC, SUBCLR 
24 -CERR AFTER SCLR 
#RLS,RKCS2(RS) ; SE BIT TO SUNIT 
FRR Pec ee tat get Fh us 
BIT SCERR,HCS1 sCHECK FOR CONTR ERROR 
es sRLS SET CERR 
= 8 TO NEXT TEST IF SET 
ERROR 3 RR SET RLS SENT 
¥ EHSFESEAEARERAL ESTER ESTE LER EEERE RSS RESALE REALE LEE HREEERERREL ESSE 
j ATEST 12 DRIVE TYPE TEST 
: THIS TEST COMPARES DRIVE TYPE IN MESSAGE A AGAINST ’DDT’ IN RKDS. 
: WRONG COT IN RKCS1 IS SENT & ARE VERIFIED. 
oe RELEFEPESEEEREFHEEKSS 6 ERRKPRERHEERRALSSRE RARER E LESS LRASRE EDA RRR é 
téTiz: SCOPE “pe em M 
NOV SStAck SP AP rbae ER AR x / 


JSR PC, SUBCLR ;SUBSYS CLEAR & GET STATUS 
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Pil le DRIVE TYPE TEST SEG 0063 
| 
l 


RROR 24 ;CONT ERR SET AFT SUBSYS CLEAR 
: 004364 IT 8D.00T, HMRe 


ERROR i ;DR TYPE SET IN MR2 
T,HDS 


-DDT SET IN RKDS 


Db Be Be Bes Be | HP» 


ey Saaannien 
7 
8 
in 
S53 


OOOO 000000 


Je ;DOTYE SET IN RKER 


po 





ERROR 
SCOP 
12708 001100 8STACK, SP -RESTORE STK PTR 
c: JSR PC, SUBCLR 
1 ERROR 24 -CERR AFTER SCLR 
13410 MOV #<(CDT!SELDRV> ,RKCSI(RS) ;GET STATUS WITH CDT SET : 
13416 MOV T10, TEMP 
1 JSR PC. FRDY sFIND RDY >. 
j 11? *RDY NOT SET BY END OF SEL DRV CMD 
1 IT #0.00T, 
pte Pe 35 DR TYPE SET IN MR2 
ee cs: Bre $bOT, HOS ‘ 
TRS ERROR 31 T SET IN RKDS 
ete 6S: Bi FoR STYE, HER i OYESBOTLNOT) xeDT 
013466 33 sDTYE NOT SET AFT WRITING CDT=1 
013470 7S: Bron 
O13 TST13 TO NEXT 
1308 


NOT SET : WRITING COT=1 


s ; KHELELELLELALLLLLELLL LL LEE LLL LELL LALA LL LALLLELLLALLLELEZARLLAAEEE 
sKTEST 13 C-D PARITY ERROR DETECTION 





aca NN ar CN 


;# 
- TESTS THE ABILITY OF THE DRIVE TO DETECT EVEN PARITY SENT BY 
te NG ’PAT’? ON RKMRI. 
- tte DRIVE WITH *C-D PARITY ERROR’ 
7 ILL SENOS 000 0 THE CONTROLLER WHICH IS NOW 
- CHECKING FOR PARITY. THEREFORE THE CONTROLLER ShOULe DETECT 
- GN ERROR AND SET SPAR. 
i THE ERROR CONDITION IS RESET WITH THE CLEAR COMMAND 
| Perit iiiiittiiitiiittitititiitiitiiiiiitittititittttititt ites 
a aM Bier 001174 W813: aOy al. STI i 
isei2 1 cotter MOV stack SP ‘he STORE BR i 
13516 004737 050320 JSR _—«- PC, SUBCLR CLEAR & GET STATUS 
| ay" ‘CONT ERR AFTER SUBSYS CLR 
=737 001000 004366 aT # .PAR, HNR3 
013534 ERROR :C=D PARITY ERROR SET IN MR3 


2 
bs 
2 
“Fr 
S 





aN § 


ss 


Mo 
os 






Ajai atat stata’) 
NOUI£U) 


pes bo fs hes RS 


RESSS 


T13 


104415 
912706 





——- —_- —Ee- - wee o * * - 


001100 
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C-D PARITY ERROR DETECTION 


agi 020000 004336 2S: BIT 
i * 


001174 


Ee 
S 
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SEQ 0064 
SPAR, HCS1 
36 -SPAR SET IN CS1 
aSTACK, SP ‘RESTORE STK PTR 
PC, SUBCLR 
24 sCERR AFTER SCLR 
WPAT.RKMRI(RS) ;SELECT BYTE O & EVEN PARITY 
PC, GSTAT -GET STATUS 
#0.FLT, HMRS 
3 ‘FAULT NOT SET IN MR3 
#0. PAR, HMR 
rh -C-D PARITY ERROR NOT SET IN MR3 
SSPAR, HCS1 
41 wee -SPAR NOT SET AFT WRITING PAT IN MRI 
TST14 >:GO TO NEXT TEST 
We -CERR NOT SET BY WRITING PAT IN MRI 


$s KELELELELALLLLE LE LLLALLLLLLLLELELELELELERLALALAEALARALELALLELLEE 


ERROR 

3$: 
SCOP 1 
MOV 
ERROR 
MOV 
JSR 
BIT 

4§: ee 
ERROR 

S$: BIT 

6S: ce 
BNE 
ERROR 

j ATEST 18 

= 3 

;# 

;% 

;% 

3% 

————- 

téT14: 
MOV 
JSR 
ERROR 
JSR 
ERROR 
Bi 
BNE 
ie 

13S: MOV 
MOV 





BRUSH CYCLE : : 
BY VERIFYING ADDRESS 8 eYLIN a 
TO BE ZERO AT THE END OF THE SEQUENCE 





VERIFY START SPINDLE 

CKS THE ENTIRE STARTUP SEQUENCE, IE: 

PROP IATE nay Sits FOR PROPER SEQUENCING 
DTPFERERCE REGS ARE CHECKED 






roeR 







KELLLFLLLELERLLELAALLLKALALAALLLLLLALAEAE 


estack,s> RESTORE SIK PIR 


PC, SUBCLR ;SUBSYS CLEAR & GET STATUS 
e4 ;CERR AFTER SCLR 


Soh ALM come 
PC FROY 


sRDY NOT SET AFTER START SPIN CMD 





ab IN HNRE ss 

° a 

08 sSPIN NOT SET AFTER START SPIN CMD 
#25$, SESCAPE 

¥CCLR, RKCS1(RS) 


IS a 





ty 
~ 
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l “is VERIFY START SPINDLE command SEO O0ES 
1 012737 010140 004374 #<D. SPIN!D. VV!D. DRAY SBNRE ‘LOAD SHOULD BE VALUE 

OL57Se Baa 052504 18k PC, CkMRe HECK RK anh tine annie 
_— Ts st, 'D hee oF 

013764 90037 004376 CLR SBNRS SHOAD bE O FOR REMAINDER °F TEST 

ghee raed ERROR ‘ i BO. ERROR yFTER START SPIN CMD 

013776 012765 000001 o00026 MOV eetetr WORD 1 
hat: B39 Bao aB 004374 sev beh 0 BRHM SBMR2 ;LOAD SHOULD BE VALUE 
1401 oos73? Beosay Mee b Font 8 : 
toes 104061 ERROR MSG Al TERROR AFTER START SPIN CMD of 

*REC’D BY DRIVE 1 

014024 004376 CLR yo 

014030 052566 JSR *CHECK MR - | 
14034 ERROR -MSG B1 ERROR AFTER START SPIN CMD 4 

*REC’D BY DRIVE 
140% 004450 TST 
BNE sBRANCH IF P OR L CLOCK PRESENT 
= : 

Ol MOV sSETUP TIMEOUT 
14066 JSR “FIND ATTN 

014072 ERROR <NO ATTN AFTER HEAD LOADING 

014074 

014074 MOV #CCLR,RKCSI1(RS) ;CONTR CLEAR 
14102 JSR PC. GSTA -GET LATEST STATUS 
14106 MOV #<0.0SC!D. SPIN!D. DRDY!D.VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
14114 JSR PC, CKMRE CK 

OiNie9 ERROR MSG AD ERROR AT END OF HEAD LOAD 

Oise FR HEC 
141 ERROR B80 AT END OF HEAD LOAD 
14134 MOV #CCLR, RKCS1(RS) 

141 MOV 81, RRL (RS) sSELECT WORD 1 
141 JSR GSTA 
14154 MOV #<D. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMRe 
141 J PC, CKMR2 
141 &S :MSG Al ERROR AT END OF HEAD LOAD | 
141 CLR SBMR3 a5 
Btasan JSR PC, CKMR3 
14200 ERROR 66 sMSG B1 ERROR AT END CF HEAD LOAD , 
1 MOV CLR. RKCSI(RS) 
BiNe16 . JSR Be’ Bre sREAD CYL DIFF IN RKMR2 
14550 BEG aa 
RE Mi Cyt L DIFF /OFFSET NOT CLEARED AT END OF HEAD LOAD 
14 FoR RDOCYLA ADDR IN RKMRS 
014230 TST cYLADD 
014234 BEQ BUS 





~~ 


Pepe eaaeeeenee reer erererrereer cree epee 








; 


stag WERTeY START SPINOLE GoRMaND. OF OCT“7® 10:34 PGE 6S SEO 0066 


“wo 
~ 





I 
O14 104176 om ERROR 176 “CYL ADDR NOT CLEARED AT END OF HEAD LOAD 
1 MOV a ,RKCS1(RS) 
1 NOV SUNT, RKCE (RS) ;DRIVE 
l 1(RS) * DRIVE CLEAR CMD 
Ol MOV 10 TEP * 
fl ERROR 1 PRO NO ROTA AFTER DRIVE CLEAR CMD 
O ISR PC. TSTATN TEST FOR ATTN 
a a ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
1 MOV BCCLR,RKCS1(RS) ;CONTR CLEAR 
1 JSR 6S * GET yates STATUS 
l MOV #<0!D.SPIN!D. DROY!D. D.DRA> , SBMR2 sSHOULD BE VALUE 
01 JSR PC, CKMRe OK MRe 
° ERROR 2723 “MSG AO ERROR AFTER DRIVE CLEAR CMD 
CLR SBMR3 
1 JSR PC, CKMR3 sCHECK MR 
ERROR 265 -MSG BO ERROR AFTER DRIVE CLEAR CMD 
MOV #CCLR, RKCS1(RS) 
HOV i RKARL (RS) :SELECT WORD 1 
MOV ry “bee SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
JSR PC, CKMRe 
ERROR 274 -MSG Al ERROR AFTER DRIVE CLEAR CMD 
*. CLR SBMR3 7 
JSR PC, CKMR3 
ERROR 266 -MSG B1 ERROR AFTER DRIVE CLEAR CMD 
014414 000137 O1S262 JMP 12$ 
014420 012765 100000 oo0000 3S: MOV #CGLR, RKCS1(RS) 
014426 Ol 001410 001412 MOV HZ,COunT 
o14434 1 poo074 001414 MOV. een Oe 
Laase JSR PC, CL KON sTURN CLK INTR ON FOR 60 SEC MAX 
01 01 000001 Mot, #1,;RKMRICRS) § :SELECT WORD 1 
O144S4 050256 4S: J’ PC’ GSTAT 
bles : 004364 i T ! "FWD, HMR2 
14476 005737 , 001416 iS TIMUP -IS 60 SE DELAY UP? aT 
14476 boro ERROR 8 are SET i ulruth £0 SEC FROM 
014500 nts cS: JSR PC S caial ‘TURN OFF CLOCK INTERRUPT 
01451 15783 01161 BpaaoB MOV » TEMPL 
1 737 JSR PC. OLY’ sWAIT APPROX Loans FOR PIP 
CLR RKAR I( *SELECT WORD 
014534 012737 030140 004374 MOV te 


UNTBUS RKO& ORIVE pete ES: PART 1 
OZREHB.P11 


re 4 
ER 


Rats tiaceani pict ees tesa ct 





14542 
14546 








ag Sts 


sa Ge Ss 


225 
& 


Saw EE 


14 


OS2e34e2 
000001 


050256 


001416 
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SEQ 0067 
PC, CKMR2 ;CHECK MRe 
71 -MSG AO ERROR AFTER ST SPIN & FWD DETECTED 
3 

PC, cKMRS ;CHECK MR3 

;MSG BO ERROR AFTER ST SPIN & FWD DETECTED 
#1,RKMR1(RS) ;SELECT WORD 1 
PC GSTAT 

;LOAD SHOULD BE 


gc 060!0. .FWD!D. . SPOK!D. . CART!D.DOOR!D. BRHM> , SBMR2 
MSG Al ERROR AFTER ST SPIN & FWD DETECTED 





PC, CKMR3 :CHECK MR3 
74 “MSG B1 ERROR AFT ST SPIN CMD & FWD DETECTED 
ae’ SE 
PC; CLKON “TURN CLK INTR ON FOR S SEC MAX 
#1;RKMRI(RS)  § :WORD | 
PC’ GSTAT 
#D: FWD, 
7§ 
TINUP 
75 -FWD NOT CLEARED WITHIN 5S SEC OF MOTION 
*FROM START SPI CMD. 
PC, CLKOF *TURN OFF CLK INTERRUPT 
#CCLR RKCS1(RS) 
RKMR tRS) -SELECT WORD 0 
#<0.PIP'D.SPIN!D. VV!D.DRA> , SBMR2 
PC, CKMR2 : 
-MSG AD AT INNER LIM DETECT 
SBMR3 
PC, CKMR3 6 CK MR 
77 BO ERROR AT INNER LIM DETECT 
#1, RKNRL (RS) nae WORD 1 
#<0.RTZ!D. REV!D. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 
PC. CKMRe sCHECK MR2 
100 <MSG Al ERROR AT INNER LIMIT DETECT 
SBMR3 
PC, CKMR3 sCHECK MR3 
101 -MSG Bl ERROR AT INNER LIMIT DETECT. 
HZ, COUNT 


;TURN CLK INTR ON FOR 4 SEC MAX 


i a 
WD HARE 


“wo 
~ 


o-— B-—< fe bes hf pa be 


Phs56s SORURRELR ORIN NONUORS aa ton con Soe GRAS Ee ose SRA TERS e 


soso 3 
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Seo Keeee VE RREISRH BE 


OOOoOoOooOo000o 20000 2000000000 2800 O00 0 090 200 G2DO00000 
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VERIFY START SPINDLE COMMAND 


001416 


000026 
004374 


1412 
1414 


004364 


9S: 


10S: 


118: 


12S: 


14S: 
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SEG 0068 

9$ 

TINUP 

102 -FWO NOT DETECTED WITHIN 4 SEC IN RTZ PORTION OF 
“START SPINDLE CMD. 

PC, CLKOF -TURN CLOCK INTR OFF. 

#COLR, RKCSI(RS) 

RKMR1 (RS) 

PC, GSTAT 

#(0.PIP!D. SPIN!D. VV!D.DRA> , SBMR2 

PC, CKMRe : 

103 *MSG AD ERROR FROM OUTER LIMIT TO CYL O 
‘DURING LOADING 

SBMR3 

PC, CKMR -CHECK MR3 

104 -MSG BO ERROR FROM OUTER LIMIT TO CYL O 
“DURING LOADING 

#1, RKMRI (RS) “SELECT WORD 1 

#<0.RTZ!D.FWD!D. SPOK'D. CARTTD. DOOR!D. BRHM!D. TFOK> , SBMR2 

PC, CKMRe “CHECK MR2 

105 -MSG Al ERROR FROM OUTER LIMIT TO CYL O 
“DURING LOADING 

SBMR3 

PC. CKMR3 sCHECK MR3 

106 -MSG B1 ERROR FROM OUTER LIMIT TO CYL O 
DURING LOADING 

HZ, COUNT 

#1°SEC 

PC’ CLKON sTURN CLK INTR ON FOR 1 SEC MAX 

RKMR1 (RS) “WORD 0 

PC, GSTAT 

#0; DRDY,, HMR2 -SEE IF DRIVE READY 

TIMUP 

107 :DRIVE READY NOT SET WITHIN 1 SEC FROM 
-FWD IN RTZ PORTION OF START SPIN CMD 

PC, CLKOF “TURN CLOCKS OFF 

PC’ TSTATN ‘TEST ATIN 
-NO ATTN AFTER START SPIN CMD 

#30$, SESCAPE n 
;CHECK RKMR 2 8 3 WORDS 0 8 1 

SESCAPE 

¥CCLR, RKCS1(RS) 

RKMR1I (RS) , 

PC, GSTAT 

60 SPIN, HIRE 

306 -SPIN NOT SET R°TER ST. SPIN CMD 

SEOP ‘ABORT DRIVE 

PC, SWTST  . sSEE IF SW 14 OR 8 IS SET 

TStis ->GO TO NEXT T 
*RETURN HERE IF SW 14 IS SET OR 
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T14 VERIFY START SPINDLE COMMAND SEQ 0069 

3547 :SW 8 WITH SWR <7:0> APPLY 
3548 015330 208: 

l 050320 ISR PC, SUBCLR 
231 pt es3 Peas ERROR 24 -CERR AFTER SCLR 
3553 015336 912765 000007 oD0000 MOV SUNLOAD, RKCS1(RS) ;UNLOAD CMD TO RECONDITION DRIVE 
3554 015344 013737 001434 O04400 MOV T10, TEMP 
3955 l 047632 JSR PC, FRDY :FIND RDY 

1 l Ol} ERROR 11 -RDY NOT SET AFTER UNLOAD CHD. 
3557 01 004737 OSO0016 JSR PC, TSTATN 
3058 15364 1040ie ERROR 12 :NO ATTN AFTER UNLOAD CMD 
3560 015366 004737 050320 JSR PC, SUBCLR 
3561 015372 104024 ERROR 24 :CERR AFTER SCLR 
oes 01 1 001 001160 MOV TSOO00,$TMPO = ; SETUP. TIMEOUT 
3564 pt eaae bt 3b tT pH00B 000000 67$: MOV #CCLR, RKCS1(RS) 
3565 015410 O1 900001 o00026 MOV #1,RKARI(RS) § ;SELECT WORD 1 
3566 1 050256 JSR PC’ GSTAT 

l 1 004364 BIT #D.SPOK,HMR2 § ;SEE IF SPEED OK GONE 
3568 015430 001404 BEQ b -BR IF YES 
3558 Ose 001160 DEC ST ‘ELSE TRY AGAIN IF TIME NOT UP 

1 1361 67S 
3571 O1544O0 104315 ERROR 315 -SPEED NOT DOWN BY TIMEOUT 
3255 B58 1 004 050320 68s: J PC, SUBCLR 
sor l l TSR og 24’ -CERR AFTER SCLR , 
3576 O1S4SO 005037 001176 CLR SESCAPE 
3577 015454 005737 001430 TST LPFLG 
3578 O15460 001402 BEQ 695 
3579 015462 000177 163422 JNP JSLPERR :SW 9 WAS SET. 
3580 015466 000177 163414 69S:  JMP JSLPADR -SW 14 OR 8 WAS SET 
3584 O1 004737 OS24s0 255: JSR PC, CLKOF 
3585 01 005237 001430 INC LPFLG 
3586 01 032777 O01000 163430 BIT #SW9, ISWR sLOOP ON ERROR? 

l 001307 20S -YES, RECONDITION DRIVE 
3588 Ol 000137 014044 JMP 1$ “RETURN TO MAINLINE 
3589 Ol 004737 30$: JSR PC, CLKOF 

30 Ot b0Se3? 1430 INC LPFLG 
31 Ol 001000 163404 BIT ¥SW9, ISWR -LOOP ON ERROR? 

3% 01 001275 BNE 20$ -YES, RECONDITION DRIVE 
3593 Oi 009137 01S26e2 JMP 12$ *RETURN TO MAINLINE 
394 .SBTTL SEEK/READ HEADER/WRITE HEADER TESTS 
3596 3 FEFLELTLEELAFE EL ELE KEEL HSE ESSERE RELAY ERESE RE RAE ELLA EERE LE RARE ERAS 
3597 ATEST 15 STATIC CYLINDER DIFF AND CYLINDER ADDR REG TEST; PART 1 
see6 THIS TEST CHECKS EACH BIT OF THE CYLINDER DIFFERENCE 


BND CYLINDER ADDRESS REGISTERS BY PEREORMING SEEKS TO ALL 
MAJOR CYLINDERS (0,1,2,4,8, 16, 32,64, 128,256) WITH EVEN PARITY SET. 
THIS FREEZES THE INFORMATION IN THE ABOVE REGISTERS & ALLOWS FOR CHECKING. 


a 
Oo 
= 
me i He 


’ 
° 
’ 
} 
; 


ee ee Teor ee — oO — +o < 














UNT D& DRIVE DIAGNO Y11 27(7 1-0CT- 
SoRELS. Pri Pil 5, : 27551 cP EN CYLINDER oO! évitn see te parr SE 0070 
7" THIS TE T VERIFIE s_¢-D PARITY oR BITS T, THAT HEADS DID 
3 8 ALL O APPLICABLE STATUS 6ITS’S REGS. 
os SFLESSSSSLSSSSSFSSSRSSSSSESSSSSSLSSSSSSSESSSLESAFSSESSAAL LEASES 
TST1S: SCOPE 
990004 001174 MOV #) srines --00 1 ITERATION 
iss MOV astac “RESTORE STK PTR 
ll O1SSSé CLR RO -CYL # REGISTER 
: bieees — 10000 004410 SOV «SITS, TEMPS 
l 1$ 
l biSsee 1oWw15 SCOP! 
3 0 12706 001100 MOV aSTACK, SP :RESTORE STK PTR 
18 015574 004737 050320 JSR PC, SUBCLR 
15600 1 4 -CERR AFTER SCLR 
ee . l 
be. sree SBiees $0010 SUN = cs 
bc 01 l si jRECAL CHD 
Sct sRESET Git OF 7OFFSET & CYL ADDR REG 
55 001434 OO4400 T10, TEMP! estes tn x 
=: biSeae BS Paes PC FPRDY pun RDY 
be 1041 is ‘RDY NOT SET AFTER RECAL CMD 
"< 000026 ,RKMRICRS) § ;SELECT WORD 1 
532 ’GSTAT 
: a0. RTZ, HMR 


64S: 


NOT ee ING RECAL CMD 
1, TEMP2 set TR REQUT 


PC,FATTI 
§S NO bari AFTER RECAL CHD 


secre 
RES 
a Be 








see RKCSI(RS) ; 
ab BSC 


sUacaae 


T : favest STA TATUS 
'D.SPIN!D.ORDY!D.VV!D.ORA> ,SBMR2 ;SHOULD BE VALUE 








ee a ees 3 





3 \ tMSG AO RETER RECAL CND 
646 _CKMR3 sCHECK MR3 
4? 27 MSG BO ERROR AFTER RECAL CMD 
a. SCCLR, RKC 
50 81, RKAR caRsRs) SELECT WORD 1 
Oo Fok! DOOR! D. BRHN SanRe 
ac. SPOK!D. .CART!D.DOOR!D. BRHM!D. TFOK>, 
eee -MSG Al ERROR AFTER RECAL CMD 
CKMR3 
se 5St :MSG Bl ERROR AFTER RECAL CMD 
2658 


em ee me ee ee oe Ewer ee a aaa. aaa 


| 
| 
| 
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Pil TIS | STATIC CYLINDER DIFF AND CYLINDER ADOR REG TEST; PART | SEQ 0071 
pt : : ates 11 TSR Be Rp “pyrene READ CYL DIFF IN RKMR2 

BB tabs 13 cHLOtF 

1 4 3 -CYL DIFF/OFFSET NOT CLEARED AFTER RECAL CMD 

| 951210 Ess PC, RDCYLA *READ CYL ADDR IN RKMRS 

i l —— 2 i>, 

l ad 50 -CYL ADOR NOT CLEARED AFTER RECAL CMD 





;DRIVE CLEAR CMD 







44h Aa 
sNO ROY R DRIVE CLEAR CMD 
: TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


aCCLR RKCSI(RS) ;CONTR CLEAR 
Tat -GET LATEST STATUS 
#(O'D. SPIN'D. DRDY!D. VV!D. ORA> , SBMR2 -SHOULD BE VALUE 


: 


5 
errennneennemeny oe 





] 
l 
] 
| 
1 
] 
1 
1 
j 
1 





Norns 





675: 


Con ToOao 


2 bo fae O=2 @—= F 25> - 


FESWPSD 


a 












161 
161 “MSG AO AFTER DRIVE CLEAR CMD 
PC. CKMR3 -CHECK MR3 
265 °MSG BO ERROR AFTER DRIVE CLEAR CMD 


RKCS1(RS) 
sl, (RS) ;SELECT WORD 1 


3: SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
“MSG Al ERROR AFTER DRIVE CLEAR CMD 





esses a8 28 guagdeuee Ha G24s g*aaeees a 





PC, FROY sFIND RDY 


SBNR3 
PC, CKMR3 
266 -MSG B1 ERROR AFTER DRIVE CLEAR CMD 
; 16220 104415 
| BSTACK, SP sRESTORE STK PTR 
PC, SUBCLR 
| 24 -CERR AFTER SCLR 
SRC i fe PARITY 
K 1(RS) ; MD. 
TEMP! 
| 
| 


——e.— ~~ eo ~ e— eer + ee ewe Ce = -_-— ~* . > 





UNI 


sess ser ereyrrereneeneremrerreen 
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b= a H< 6 ~ Oo & = Be Bee 






poe at b> ba & > Bo hee fH P= Be 


NSPREDRSASSUNEDSENGEOLES 


i 
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89 
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ae 
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lel 








001174 


RO EYLADO 
4 ‘CYL ADDR IN MR3 NOT=RKDC 
es: Be. ROC i READ CYL DIFF 
RO, EYED StF 
44 sCYL DIFF IN MRe NOT=RKDC 
3S: MOV SCCLR.RKCSI(RS) ;CONTR CLEAR 
CLR . RKMRI(RS) :SELECT WORD O 
J PC, GSTAT 
HOY ac, 10. SPIN!D. -DRDY'D. Wy . WV!D. DRA? , SBMR2 
ERROR s0,6.1% *MSG AO ERROR AFTER SEEK WITH BAD PARITY 
MOV 8<D.FLT!D.PAR> SOR 
ePROR i — es: AFTER SEEK WITH BAD PARITY 
MOV RKCSI(RS) : sNSG 60. FRRO ; 
HOV 81, Ar (RS) “SELECT WORD 1 
MOV acd SPoK!D. CART!D. DOOR! D. BRHM!D. TFOK> , SBMR2 
nor Oe hee He 
146 {RCE Al ERROR AFTER SEEK WITH BAD PARITY 
JSR Be RRMRG ; CHE 
ERROR te BL AFTER SEEK WITH BAD PARITY 
ROL : T NEXT RIOR CYL 
CMP , $1000 : OR CYL DONE? 
BNE Bene Tr F NO 
BR TST16 i TST 
4§: JMP 1$ 
53 EEE HESEREREESE TE EERARERAERERERFELAS EKA KREGER EAE EHTS 
j TEST ib STATIC CYLINDER DIFF & CYLINDER ADDR REG TEST-PART 2 
: i THIS TEST CHE ILITY OF DRIVE TO PROPERLY SET THE CYL 
i IFF OR ALL CONBINATIC Ons BY ING 10 
- 1 PERFORMED IN THE SAME MANNER AS THE ABOVE en 
1 boladeiat-+-+-+-+-jaleaialeintaiabahaaiabaiataiadatel RKSSRRRASEARERS 
téT16: SCOPE 








ORIN BRON T ATIC cy Ic EYLINOER 1 “CYLINDER ADOR % ah pant 


re, RDY FROM SEEK WITH BAD PARITY 
TSTATN TEST _FOR_ATTN 


"6 Bute eae SEEK 8 BAD PARITY 
bran ma. } TRC 
RESTORE 9 at IN RKDS AFT CLR 





























Stack. SP ‘APSTORE SK PIR 


ISG93 *BYPASSING TEST 16 
1be 


SEQ 0072 










UNIBUS DIAGNOSTIC PART 
DZRSHB. 16 
305 001216 
ie en 
3776 001379 
: OC ra 
JO 1 
3785 Ol 
3786 
oe pono 
3790 000000 
ee 004400 
ce p00026 
oa 004364 
ay 
Ss 
ay biepae _— 
3008 0 004374 
310 OL 
3 
L 
15 01 190000 900000 
3816 Ee 000026 
17 O1 
1 004374 
3621 ; 004376 
052566 
La 
3825 
3826 017002 012765 100000 000000 
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ADDR 


138: 


11S: 


y 


2 geegseues oe OS BR-8S gue S88 3 


STATIC CYLINDER DIFF & CYLINDER 


ae geRe za 


ls, 
% 


REG TEST-PART 2 





SPaSs -TYPE MSG ONLY FOR FIRST FASS 
lace ‘PLEASE WAIT, LONG TEST 
a |e 
cov tC ORRENT CYL 

YL ‘PREV CYL 
eSTACK, SP -RESTORE STK PTR 
PC, SUBCLR 
24 -CERR AFTER SCLR 
SUNTT’ RKESSLRED 
SRECAL R RKCS1(RS) 

a tad ams * % HOO Fe 
T10, TEMP 
PC. FROY one 
124 *RDY NOT SET AFTER RECAL CMD: 
#1, » KMRL (RS) -SELECT WORD 1 
PC’ GSTA 
90 R12, , HMR2 
Sua sRTZ NOT SET DURING RECAL CMD 
TIMEOUT 


T1, TEMP2 ;SE 
:FIND ATTN 
TTN AFTER RECAL CMD 









(6.0SC!D. wane’ Royton ID. SORA SBMRe ,SHOULD BE VALUE 
*MSG AO ERROR AFTER RECAL CMD 


CK _MR3 
BO ERROR AFTER RECAL CMD 


Ba 





ui 









: 
: 


2 
an 


2S 
; 
= 


;SELECT WORD 1 
»CART!D.DOOR!?D.BRHM!D. TFOK> , SSMR2 


ee 
Ges 





aed 
;MSG Al ERROR AFTER RECAL CMD 
SBMR3 
- gpm 
;MSG 81 ERROR AFTER RECAL CMD 
SCCLR, RKCS1(RS) 


SES 0073 


| 
| 
| 


pn ee NN RRR NNNNNNNNNYNNNMMNEEEY Ue 


a 
=§ 


oO 
o 
Oo 


fo 
Pe ba be bm he Be pee he 





RNS 


7040 


$3 > = b+ bs be 


Oooo0om 
p> bo Ps p> 


Ooooooooo G00 °000°0 
Bas fh a4 PH> Bn Bo P— b-2 H+ pe Bs p= be Ps Bee Baw fae 
NNN 
SaaRe CR 

<£ 


SPR IRRDE 











ORIVE DIAGNOSTIC 
T16 


PART 1 


MACY 1 


STATIC CYLINDER DIFF 


051124 
001402 


004737 
mat 


051210 
001404 


bos B= Po be 


65S: 





1S: 


1374 


| 
8 
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CYLINDER ADOR REG TEST-PART 2 
PC, ROCYLD sREAD CYL DIFF IN RKMR2 
TST cyt IF 
OR 4Y -CYL DIFF/OFFSEi NOT CLEARED AFTER RECAL CMD 
PC, ROCYLA ‘READ CYL ADDR IN RKMR3 


28 a oe g°ag62222 ZOA8F % 


C4 
% 


BSSSss 2 





th 


;CYL ADDR NOT CLEARED AFTER RECAL CMD 


#CCLR, RKCS1(RS) 
T Wet ) ;DRIVES 
es RKCS1(RS) sDRIVE CLEAR CMD 


TEMP 
PC. FRDY sFIND RDY 
-NO RDY AFTER DRIVE CLEAR CMD 
P TSTATN -TEST FOR ATIN 
1S4 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 









#CCLR,RKCSI(RS) ;CONTR CLEAR 
pC ‘GET LATEST STATUS 
#<0'D. SPIN!D. DROY!D. VV!D. DRA> , SBMR2 -SHOULD BE VALUE 


“MSG AO ERROR AFTER DRIVE CLEAR CMD 
BE CNRS 






Pre sCHECK MR3 
sMSG BO ERROR AFTER DRIVE CLEAR CMD 
BL ReAr (RS) sSELECT WORD 1 





#<0.SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
CKMR2 


PC : 
274 -MSG Al ERROR AFTER DRIVE CLEAR CMD 
Be MRS 3 
266 -MSG Bl ERROR AFTER DRIVE CLEAR CMD 
STACK, SP sRESTORE STK PTR 
PC, SUBCLR 
ey sCERR AFTER SCLR 

sEVEN PARITY .. 

“SET TO CYL ADOR 

;CURRENT CYL 

sPREV CYL 





SES 0074 
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SEG 0075 
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0S0016 JSR PC, TSTATN ; TEST FOR ATTN 





ERROR 126 ;NO_A ATTN FROM SEEK & BAD FARITY 
490900 MOV sCCLR, RKCS1(RS) it 
! 13 HOV ERCYL RKDC RS) TOR RKDC AFT CCLR 
ike CHP FREML,cYLADD | F RETURN CYL ECHOED Cx 
241 ms NOT=RKDC 


001372 001370 68: CMP TOCYL ,FRCYL ;SEE IF TO=FROM 
001372 Tet focwL Be Mpeg TEST TF No 
me | oS 


-CYL DIFF S/B 0 ON CYL O 
-CYL DIFF IN RKMR2 INCORRECT 
DT SET BP 
eet IN THIS TEST 
FF IN RKMRe DID NOT REMAIN = 0 


CYL DIFF 


10S: 





400 001402 IF CYL DIFF OK 
oa, DIFF IN RKMR2 INCORRECT 
73: 
990000 MOV ,RKCS1(RS) 
1 MOV SUNIT:RKCS2(RS) ;DRIVES 
000000 MOV SCLEAR, RKCS1(RS) -DRIVE CLEAR CMD 
004400 MOV 110, TEAPI 
JSR Y -FIND ROY 
ERROR 15] -NO RDY AFTER DRIVE CLEAR CMD 
ISR PC, TSTATN “TEST FOR ATTN 
ee ERROR 154 -ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
TOCYL 
000633 is TOEYE, #411 -SEE IF SCANNED ALL CYLINDERS 
BEQ 8s -BR IF YES 
JMP ig -ELSE REPEAT 
BS INC YL 
000633 CMP FRCYL, #411 -SEE IF ALL DONE 
BEQ TST1? ->GO TO NEXT TST 
001372 MOV FRCYL, TOCYL -FRCYL ALWAYS = OR > TOCYL 
~ JMP 1§ “ELSE REPEAT 
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:  SORSUDRRRERENBROUdSNRREEEReENEnnenenenauasnensnanenennnesEseses 
; ATEST 17 HEAD REGISTER TEST 
+ HIS TEST ABI ' 
: via nub 5 READING Back FROH ERIN nec B3 BY Phe Gerber batve cu. 
:% NEADS IS CHECKED TO 
; INCE CHANGING HEAD S ARE TIED TO SEEK COMMANDS, 
; i CTING HEAD 3 MUST AL Hite IN A INCOMPLETE ALONG WITH 
: Ite ADDRESS. IF NOT, TH CHANGING HEAD ADDRESSES 
i* NOT TIED TO SEEK COMMANDS 
i en 
; . srines -:D0 1 ITERATION 

MOV eS TACK ‘hest STORE STK PTR 

CLR RO “HEAD # 
1S: 


;RESTORE STK PTR 


ERROR 24 ;CERR AFTER SCLR 


-RECAL CMD 
sRESET CYL DIFF/OFFSET & CYL ADDR REG 
-IN RKMRe & RKMR3 RESP. 


sFIND RDY 
;RDY NOT SET AFTER RECAL CMD 


;SELECT WORD 1 


sRTZ wor SET DURING RECAL CMD 
;SETUP TIMEOUT 





PATTI iF IND 

SS = NO ATTN AFTER RECAL CMD 
MOV accLR, RKCS1(RS) sCONTR CLEAR 
JSR <GET LATEST STATUS 
HOV ofa Kiba SPIED. vib. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
J 
ERROR “oO AFTER RECAL CMD 
SR ae eKMR omer a8 
ERROR 278 'MSG BO ERROR AFTER RECAL CMD 
MOV ¥CCLR, RKCS1(RS) 
MOV #i,RKMRI(RS) ;SELECT WORD 1 


SEQ 0077 


2 
5 


41 
41 
41 
41 
41 
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t. 
SG 


MOV 
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zis -SPOK!0, .CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
-MSG Al ERROR AFTER RECAL CMD 
CKMR3 
i 


SCCLR, RKCS1(RS) 


;MSG B81 ERROR AFTER RECAL CMD 


PC. RDCYLD sREAD CYL DIFF IN RKMR2 
CYLDIF 
47 sCYL DIFF/OFFSET NOT CLEARED AFTER RECAL CMD 
PC, ROCYLA i READ CYL ADDR IN RKMR3 
“CYLADD 
i sCYL ADDR NOT CLEARED AFTER RECAL CMD 
,RKCSI(RS) 
RKCS2(RS) ;DRIVES 
RKCSI (RS) sDRIVE CLEAR CMD 
sFIND RDY 
-NO RDY AFTER DRIVE CLEAR CMD 
ATN “TEST FOR ATIN 


sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 










CS1(RS) ;CONTR 
° GET Lar ST 3TATUS 
ac) IN!D. DROY?D. WED . DRA? , SBMR2 sSHOULD BE VALUE 
273 {MSG AO ERRO! AFTER DRIVE CLEAR CMD 
Be ENR sCHECK MR3 
265 *MSG BO ERROR AFTER DRIVE CLEAR CMD 
8CCLR, RKCS1(RS) 
#1, RKARL (RS) sSELECT WORD 1 
#0. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 


pte 






;MSG Al ERROR AFTER DRIVE CLEAR CMD 


;MSG Bl ERROR AFTER DRIVE CLEAR CMD 


83,RKMRI(RS) § ;SELECT WORD 3 
PC’ GSTAT “GET STATUS 
HMR3, TEMPL 


SES 0078 


i 
: 
3 


020564 


be Be 


~— 
| a | 


& 
ae 
2 
2 
EB 
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170777 OO4400 


3727? OO04400 001000 


ee 


ss 


bE 


ds 
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ase Ee 


001100 





4§: 


MACY11 27(732) 


CMP 
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TEMP: .HEAD> , TEMP 


MP1, #BIT9" 
S 


SSTACK, SP 
PC, SUBCLR 
e4 

RO 

RO, RKDACRS) 
RO 


#SEEK, RKCS1(RS) 
T HHO 

5b TSTATN 
#CCLR, RKCS1(RS) 
RO, RKDACRS) 


aTTN(ROD TEMP 1 
, TEMP2 


4§ 
S4 


aan i 


;HEAD O=BIT 9 


;RECAL DID NOT RESET HEAD REG IN RKMR3. 


sRESTORE STK PTR 
;CERR AFTER SCLR 


sHEAD # 


;SEEK CMD 


;FIND RDY 
;NO ROY AFTER SEEK TO SELF 


;NO_ ATTN AFTER SEEK TO SELF 
CLEAR CONTR ERROR 


;RESTOR RKDA AFTER CCLR 


sBRANCH FOR HEAD 3 
sSELECT WORD 3 

sHERE FOR HEADS 0,1,2 
sRIGHT JUSTIFY 

*HEAD DECODE 


;FOR RKDA=HEAD 0, HEAD=1 IN RKMR3 
sFOR RKDA=HEAD 1; HEAD=2 IN RKMR3 
FOR RKDASHEAD 2, HEAD=4 IN RKMR3 
;HEAD DECODE IN RKMR3 NOT=RKDA 


sSELECT WORD O 


TAT 
ath DSC!D. SPIN!D. DROY!D. VV!D. DRA» , SBMR2 


114 


RO, #3 
1% 


MSG AD ERROR AFTER LOADING HEAD REG 
;& SEEK CMD 


sHEADS 0,1,2 


6$ 
&<D.SKI!D.FLT!D.IDAE> ,SBMRS ;HEAD 3 
PC, CKMR3 ;C MR3 





: CHECK 
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SEG 0080 


ERROR 115 -MSG BO ERROR AFTER LOADING HEAD REG 
-& SEEK CMD 
Np RD. a4 °0 THRU 3 DONE? 
BEQ 75 YES 
JMP 1$ “ELSE REPEAT 
73: 
MOV #CCLR, RKCS1(RS) 
MOV SUNIT, RKCS2(RS) 
MOV BRECAL, RKCSI(RS) sRECAL CMD 
MOV T10, TEMP 
JSR PC, FRDY sFIND RDY 
ERROR 124 ‘RDY NOT FOUND AFTER RECAL CMD 
MOV #CCLR, RKCS1(RS) 
NOY acl Enh RRKCEL (RS) CORIVE CLEAR CHD 
V T10. TEMP 
JSR PC. FRDY -FIND RDY 
15] -NO RDY AFTER DRIVE CLEAR CMD 
ISR PC, TSTATN “TEST FOR ATTN 
soa ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
JSR PC, GSTAT 
BIT #D.IDAE,HMR3 § ;SEE IF IDAE IS CLEARED 
BEQ 68S BR IF YES 
ERROR 155 *IDAE NOT CLEARED AFTER RECAL CMD 
68$: MOV #CCLR, RKCS1(RS) 
MOV *LOOK FOR ATTN FROM RECAL 
JSR PATTI 
ERROR 55S :NO ATTN AFTER RECAL CMD 
s aa wauantwuan 
jATE SEEK TO CYLINDER O 
+ TESTS THE ABILITY 10, DO A SEEK COMMAND. 
: salle 611s : THERE WAS NO MOVEMENT BY CHECKING ALL APPROPRIATE 
: STA ITs. VERIFIES COMMAND COMPLETION BETWEEN 10-1SUSEC. 
ii S NOT PERFORMED AS THE PACK MAY NOT BE FORMATTED. 
es HESHESLELS ELE LE RSE RERES ERE LHERESE REED EERSERERKREERELE HELE AE SEEG 
tST20: SCOPE : 
#1. STIMES— --D0 1 ITERATION 
MOV uSTACK, SP ‘RESTORE STK PTR 
JSR PC, SUBCLR ,SUBSYS CLEAR & GET STATUS 
ERROR 24° <CERR AFTER SCLR 
JSR PC, ROCYLA ‘READ CYL ADDR IN RKMR3 


ville 
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SEEK TO CYLINDER 0 SEQ 0081 
l 001404 TST CYLADD 
i320 tet E35 Bb r4a1 eo SCS 
104130 a ERROR 130 -CYL ADDR NOT CLEARED AFTER SCLR 

. is SCOP! 
. : yee 001100 MOV #STACK, SP ‘RESTORE STK PTR 
4226 021250 004737 050320 JSR PC, SUBCLR 
He 021254 104024 ERROR 24 :CERR AFTER SCLR 
42°9 021256 012765 000017 oD0000 MOV ¥SEEK,RKCSI(RS) ;SEEK CMD: SEEK TO SELF 
4230 O21264 012737 O0000S o04400 MOV aS, TEMPL -SETUP 100US TIMEOUT 
4931 Qele7e2 047632 JSR PC’ FRDY ;FIND ROY & GET STATUS 
yd3o Gel 10413 ERROR ial “RDY NOT SET AFTER SEEK CMD 
io33 l bi2737 000005 004400 MOV 4S, TEMP! -SETUP 100US TIMEOUT 
4235 O21 004737 050144 . JSR PC, FATT2 -FIND ATTN 
4 O21312 1041 -NO ATTN AFTER SEEK CMD 
4937 021314 100000 004336 BIT #CERR,HCS1 
4238 O2l3e2 001401 BEQ 4§ 
4539 021324 104210 ERROR 210 -CERR AFTER SEEK CMD 
eat 1326 BYE: 
4242 021326 012765 100000 oo0000 MOV #CCLR,RKCSI(RS) ;CONTR CLEAR 
4243 021334 004737 OS02S6 JSR PC. GSTAT “GET LATEST STATUS 
4244 021340 012737 050340 004374 MOV 8<BD.0SC!D. SPIN!D. DRDY!D.VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
4 021346 052504 JSR CK 
y 1352 104132 ERROR 133 MSG AD ERROR AFTER SEEK CMD 
4O47 021354 004376 CLR SBMR3 
youg O21 360 004727 OS2S66 JSR PC, CKMR :CHECK MR3 
ious 1364 104134 ERROR 134 -MSG BO ERROR AFTER SEEK CMD 
4251 021366 012765 100000 000000 MOV #CCLR, RKCS1(RS) 
4 e1374 01 000001 o00026 MOV #1,RKMRI(RS) § ;SELECT WORD 1 
4 1402 Bases 050256 JSR PC’ GSTAT 
4254 021406 012737 001720 004374 MOV #0. SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
4955 021414 004737 OS2S04 JSR PC, CKMR2 
4956 021420 104135 ERROR 135 -MSG Al ERROR AFTER SEEK CMD 
4957 Qel¥e2 005037 004376 CLR SBMR3 
4958 Qol4 JSR PC, CKMR 
159 021432 104136 ERROR 136 -MSG Bl ERROR AFTER SEEK CMD 
4261 
4 1434 004737 0511 J PC, RDCYLD sREAD CYL DIFF IN MSG Ae 
4 eat 005737 Ba iaae TST cYLDIF 
4964 021444 001401 BEQ 655 
eb 021446 104137 ERROR 137 -CYL DIFF NOT CLEARED AFTER SEEK CMD 
Heb? 021450 65S: 
45E8 021450 01 100000 000000 MOV #CCLR, RKCS1(RS) 
4270 Oel4S6 O1 001222 000010 MOV SUNIT.RKCS2(RS) ;DRIVES 

Oe 0 HOV - #CLEAR, RKCSI (RS) -DRIVE CLEAR CMD 

14 0014 T10, TEMP 
021 JSR FRDY -FIND RDY 
021 ERROR 15] “NO RDY AFTER DRIVE CLEAR CMD 
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SEEK TO CYLINDER 0 


050016 


000000 
004374 


001174 
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ISR PC, TSTATN “TEST FOR ATTN 
sail ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #CCLR,RKCS1(RS) ;CONTR CLEAR 
JSR GStaT sGET L LATEST STATUS 
MOV 4020. SPIN!D: DRDY! .DRA> , SBMR2 sSHOULD BE VALUE 
JSR PC CKMRe "CHECK: 
ERROR an -MSG AO ERROR AFTER DRIVE CLEAR CMD 
CLR SBMR3 
JSR PC, CKMR3 -CHECK MR3 
ERR 265 *MSG BO ERROR AFTER DRIVE CLEAR CMD 
MOV aCCLR RKCS1(RS) 
MOV RKMRI(RS)  ;SELECT WORD 1 
JSR Pe’ GS 
MOV #<0.SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
JSR PC, CKMRe 
ERROR 274 “MSG Al ERROR AFTER DRIVE CLEAR CMD 
FR BE Cena 
ERROR 266 :MSG Bl ERROR AFTER DRIVE CLEAR CMD 
PC, RDCYLA sREAD CYL ADDR IN MR3 
124 BSC AD 
BEQ TST2l ::GO TO NEXT TEST 
ERROR 140 :¢YL ADDR IN MR3 NOT CLEARED AFT SEEK CMD. 
ss LLLARALELAREALELSLAALL LA LALA KALA AA LA LALA LALA LALA RAAAAAAALALAEAE 
:kTEST 21 TEST SECTOR COUNT REG. | 
ee Oe Pn ee oe a ee 
"MOV #1. STIMES >:D0 1 ITERATION 
MOV aSTACK, SP i RESTORE STK PTR 
JSR PC, SUBCLR -SUBSYS CLEAR 8 GET STATUS 
ERROR 24 :CERR AFTE 
MOV #2$, SESCAPE -GO TO NEXT TEST IF ANY ERROR DETECTED 
MOV #21. , SECNT :22 SECTOR FORMAT TEST 
JSR PC, FSO22 FIND SECTOR 0 
ERROR ' 142 : SECTOR 4 NOT FOUND BY TIMEOUT 
CLR PSEC ; PREVIOUS _ SECTOR 
64§: JSR PC, FNS22 FIND NEXT SECTOR 
ERROR 14 DIFFERENT SECTOR NOT FOUND BY TIMEOUT 
MOV SEC, ESEC 
ADD #1. ESEC :SETUP EXPECTED SECTOR 
HOV ATOR. PSEC : UPDATE PREY SECTOR, 
J 
CMP SECTOR, PSEC 
BEQ 65$ -BR IF READ SAME TWICE 





PC, RDSEC 








2 
5 
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| Pi Sf SECTOR COUNT REG. 83 SEG 0083 


5 
RKOG 
Pil 
‘| 4331 021760 001426 001422 SECTOR, PSEC 
021766 b5§ ;TRY 1 MORE 
081 
10 
022012 


e@- 


5 
gag 2 
3 


OCi4¥2& OOi4e4 65S: CMP + 1 eiacemaae 
14 ;MSG B3 ERROR BETWEEN SECTOR COUNTS 
001420 66S: DEC SECNT 


140] TIME 
1041 i44 | *MSG B3 ERROR, SECTOR REG UNSTABLE 
Ss 3 
64S ;8R IF SECTOR COUNT NOT DONE 


‘MAY BE DURING SECTOR PULSE TIME 
s7-28 


q eas 
mp 


001176 25: CLR SESCAPE 


ZEEE EEEEEEEEESELESL 
2599 amr: 









8 HH PEPSRERSESHEKSALSFEDS PE GESESEDPHEFESELSHHPL ESS ESSE HESHHEREDOHRES 
ST 22 DETECT OUTER LIMIT 
THI I Y POSITION ON CYLINDER 0 
BY BETECT IN OUIER LIMIT 6S The AOJRCENT CYLITOER. 
AN ERROR IN THIS TEST INDICA 
a. WERE NOT ON CYLI 0 
AND/OR 8B. NOT SEEK IN DIRECTION. 
HPREGERE SAASFERELALEAERESARAESLSRLAFLALSSE 
tSt22: SCOPE 
81. STIMES : ITERATION 
astACK, SP ‘Re STORE STK PTR aes 
24" :SUESYS CLEARS. 
LPFLG 
SPAT, RKMRI(RS) ;PARITY & WORD O 
81, RKDC(RS) -CYL | 
sSEEK RKCSI(RS) ; CMD 
T10, TEMP 
FRDY -FIND RDY 
1 iN Y FROM SEEK WITH BAD PARITY 
TSTATN ST FOR ATTN 


1 ATTN FROM SEEK WITH BAD PARITY 
sCCLR sRKCSL(RS) 


A SPIN!D. DRDY!D. VV!D.DRA> , SBMR2 
CKMR2 


AO ERROR AFTER SEEK WITH BAD PARITY 
LF mn ven pap. a 

PC, CKMR3 CK 

111 B0 AFTER SEEK WITH BAD PARITY 
RKMR1 (RS) sme PARITY & SELECT WORD 0 





SSIS ones 
RKCS1(RS) sDRIVE CLEAR CMD 


pe ie sFIND RDY 





geese © ALL & gues 











pee RKOG ORIVE DIAGNOSTIC PART MACY1L1 27(732) 
Pil ee DETECT OUTER LIMIT 


SE BBE IU osons es 


iss FRROR 
64S: 


PRC heee ret 


Sas ee a 


cy 
% 


w 
4 
4 


+41 GR 
oH JSR 
1 
MOV 
MOV 
MOV 
ERROR 
MOV 
JSR 
JSR 
| ERROR 


E 





gegcss 430 


wid) Geeen 


—— er DS ee Oe eee” - - . . = - - ——_—— 
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3H oy AFTER ORIVE CLEAR CMD 


! 
Pe, TsTaTN T FOR ATTN 

1S4 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
BCCLR,RKCSI(RS) ;CONTR CLEAR 

PC STAT “GET LAT 51 STATUS : 
#<O!D. SPIN!D. DROY! WD. >,SBMR2 =. ;SHOULD BE VALUE 


“MSG AD AFTER DRIVE CLEAR CMD 


» CHECK 
: BO ERROR AFTER DRIVE CLEAR CMD 
(RS 


;MSG Al ERROR AFTER ORIVE CLEAR CMD 


;MSG 81 ERROR AFTER DRIVE CLEAR CMD 





#<6.SPIN'D.ORDY!D. VV!D.DRA> , SBMR2 
PC. CKMRe -CHECK MR2 


AS he eee CMD 


*CHECK MR3 
sMSG BO ERROR AFTER CLEAR CMD 


tErEK TO CYL 0 


T DETECT 
TECT NOT FOUND BEFORE TIMEOUT 


sDOIVE NOT UN OAD ING AFTER LIMIT DETECT 


sMUST ESCAPE TO CYCLE UP DRIVE & TEST SWR 
sSELECT WORD 0 


<< 
4 
~~ 
~4 





acd, bsc 
8<D.0SC!D.PIP!D.SPIN!D.VV!D.DRA> , SBNR2 


SeG C084 


roa 


2 
B 






LdssAAASEAIANISAAALIELIL 
i 


PEPER Ter Tt cic SEER RRS 


$8 eee ee ee meee 


0416 
1 


002200 
OSeS66 
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ERROR 
MOV 


OR 
MOV 


JSR 
MOV 


ia 


Soa 


: guogGesee ee Eh EA TEE 





WS 


‘= 


TST 
Q 
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SEQ ooes 
161 MSG AO ERROR AFTER OUTER LIMIT DETECT 
ab. SKI'D.FLT>, sinks 
PC, CKMR3 ic CK MR3 
BO ERROR AFTER OUTER LIMIT DETECT 
ac RKC (RS) 
ARI ¢ *WORD 1 


GSTAT 
ane a0. UNLD!D. -REV!D. SPOK!D. CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 







Bam MSG Al ERROR AFTER OUTER LIMIT DETECT 
-NO ATTN AFTER OUTER LIMIT DETECT 

PC, SUBCLR & fe 

10, TEMP2 reguT 

PC. FHDHM 

gb T RO FOUND BEFORE TIMEOUT 

¢ ,FLORD 


CaS eae FOUND BEFORE TIMEOUT 





PC FATT ND ATTN 
67 if IN NOT FOUND BEFORE TIMEOUT 
SESCAPE 


accLR RKCS1(RS) ;CONTR CLEAR 
PC. GSTAT LATEST STATUS 
ab aDSC!D. . SPINID. Y'D. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 


MSG RO ERROR AT END OF HEAD LOADING 










PC, CKMR3 -CHECK MR3 
64" -MSG BO ERROR AT END OF HEAD LOADING 
RKCS1(RS) 

#1, Rh (RS) ;SELECT WORD 1 

#<0. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 

Be" . sMSG Al ERROR AT END OF HEAD LOADING 

BE CRMR3 

44 :MSG B1 ERROR AT END OF HEAD LOADING 
R_RKCSI(RS) 

Pe ROCYLD sREAD CYL DIFF IN RKMR2 

a sCYL DIFF/OFFSET NOT CLEARED AT END OF HEAD LOADING 

P ROCYLA ‘READ CYL ADOR IN RKMR3 

l sCYL ADDR NOT CLEARED AT END OF HEAD LOADING 


o 

=§ 

~ 
i — 


ur 


iS 


th 
+ 


Or 


ru rT 


ut 


= 


AAMAASSENSERSSSRRAAR RNR RNtRRARRRIRESSSSSERISESREATS US 
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DETECT OUTER LIMIT 


100000 600000 


posses 880080 


001434 004400 
04 


050016 





155656 


67§: 


: oe oe sms 


10S: 


is 


ge guee ae 


a3 
g 


w 
| om) 
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R,RKCSI(RS) 
br * or DRIVES RIVE CLEAR CHD 


pe beBY 

{ DRIVE CLEAR CMD 
Pc TSTATN fo FoR ATTN 
1S4 arm NOT CLEARED AFTER DRIVE CLEAR CMD 
SCCLR,RKCSI(RS) ; AR 
PC. GSTAT son Pateet STATUS 
#<0'D. SPIN!D. DRDY!D 0. VV!D. DRA> , SBMRE sSHOULD BE VALUE 
PC » CHECK 
cs -MSG AO ERROR AFTER DRIVE. CLEAR CMD 
PC, CKMRS -CHECK MR3 
265 “MSG BO ERROR AFTER DRIVE CLEAR CMD 
#CCLR, RKCS1(RS) 
i RKARA (Re) sSELECT WORD 1 
PC’ GSTAT 
ach. ,SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBNR 
an -MSG Al ERROR AFTER DRIVE CLEAR CMD 
SBMR3 
PC CKMRS 
266 >MSG Bl ERROR AFTER DRIVE CLEAR CMD 
PC, SWTST 4 OR 8 IS SET 
TSt23 SE a 5 ext Tee 

tRETURN HERE IF su 14 IS SET OR 
-Sl 8 WITH SWR <7:0> APPLY 

SE 
PC, SUBCLR 
24 -CERR AFTER SCLR 
aSRTSPL RKCS1CRS) “START SPINDLE CMD 
T10, TEMP SET T TIMEOUT 
1 i NOT 
lel iBaN NOT FOUND AFTER ST SPIN CMD. 
T100, TEMP2 sSETUP TIMEOUT 
pC FATT sf orm 
S TTN AFTER ST SPIN CMD. 
LPFLG 
#SW9, ISWR sLOOP ON ERROR? 
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4555S Oe3ebe 001344 


Besson 000137 CeebYe 


000010 


paste teenagers acing dere 





MACY11 27(732) 
Tae DETECT SuTES LIMIT 


SEEREFEPSEFESEEEREED FRE EEELERFES HERES RESEEHEEA SPEARS FESR ELF RELES HEHE 
jATEST 23 READ 

* 
-# 
°% 
Fe 


j UAE SERRE REE nen eee 
"MOV #1, STIMES : D0 1 ITERATION 
MOV aStAck, SP “RESTORE STK PTR 
CLR HEAD -HEAD COUNTER 
18: 
SCOP! 
MOV #STACK, SP sRESTORE STK PTR 
JSR PC, SUBCLR 
ERROR -CERR AFTER SCLR 
SWAB 
MOV LOAD HEAD REG 
SWAB 
MOV 
MOV -READ HEADER CMD 
MOV My TIMEOUT 
JSR ROY 
ERROR Y AFTER READ HEADER CMD 
BEQ 
ERROR 174 sCERR AFTER READ HEADER CMD 
MSG18 ‘ABORT BALANCE OF TESTS 
JMP $e0P “ABORT DRIVE 
64S: MOV RKDB ),(RO)+ 51°ST WORD FROM SILO TO RHTAB 
MOV (R5)°(RO)+ +2°ND WORD 
MOV RKDB(RS).(RO)+ :3°RD WORD 
T T, RKCS2(RS) 
He 
=A l — T AFTER READ HE c 
Freee ca : i ORT BALANCE OF TESTS 
ae JMP $eoP ‘ABORT DRIVE 


BNE 
JMP 


iy 


TEST poe NOT CHECK T 
HEADERS 
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10$ ; YES, RECONDITION DRIVE 
2s RETURN TO MAINLINE 


» ALL TRACKS, CYLINDER 0 








HE _HEADERS BUT ONLY THE FACT 
CAN BE READ CORRECTLY BY CHECKING CERR & DTE. 


THIS TEST IS VALID ONLY IF THE PACK HAS NOT BEEN ZERO’D OUT. 


SES 0087 





ft 


ia eter 001174 


001450 


PREECE BOR onOn se sas foe= 6 oe Umar ER Coun unmOneEsS Senet ee ue 








Sane an Pg 53 9 rst INOER BY 10:34 PAGE 87 SEQ 0088 


MOV aCCLR RKCSLCRS) sCONTR CLEAR 

JSR GET LATEST STATUS 

st SEEIN. -DROY:D. wid >, SBMRe :SHOULD BE VALUE 
TE aon AFTER REND SEROGA CH 


PC CKMR3 :CHECK MR3 
27] *MSG BO ERROR AFTER READ HEADER CMD 


RKCS1(RS) 
RAR >SELECT WORD 1 


ieee 0.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
302 -MSG Al ERROR AFTER READ HEADER CMD 


PC, cK ” 
;MSG B1 ERROR AFTER READ HEADER CMD 


: Pu ae 


#CCLR, RKCS1(RS) 
JSR PC, ROCYLD -READ CYL DIFF IN RKMR2 


;CYL_DIFF/OFFSET NOT CLEARED AFTER READ HEADER CMD 


66S: SR YLA ;READ CYL ADDR IN 


676 ;CYL ADOR NOT CLEARED AFTER READ HEADER CMD 


CMP HEAD, #3 ;ALL_ HEADS DONE? 
BNE 1$§ ;REPEAT IF NO 


4 ERESREEREERERA EEL EEE SLES SEES 6 PSHESEFHERSEEEE LEFELEEEREER ERE 
; ATEST 24 BASIC WRITE/READ HEADER & HEAD SUI TCHING TEST 
THIS TEST CHECKS HEA HEAD SSM ICHING BY WRITING UNIQUE HEADERS 
ON EACH TRACK REBOING. BACK & VERIFYING THEY REMAINED 
UNIQUE. 22 SECTOR CT ORMAT 
I.E. TRACK O: ALL O'S FOR ALL SECTOR HEADERS 

TRACK 1: 0101 FOR ALL SECTOR HEADERS 

TRACK 2: ALL 1°S FOR ALL SECTOR HEADERS 


Vo Sa 
HOV © aStAcKSe |= ERESTORE STK PIR 


CLR HEAD sHEAD CTR 


rrrrrTrTTT Tt 


2 
3 





PTAA SATS AS AA 


geewesedd sud seosee 





ssbege @ 


= 
4 
i" 


e 


# 


| 


BRBSsce 
PRR RRS 


TAGNOSTIC 


001100 


PART MACY11 27(732) 
BASIC URITE/READ HEADER & HEAD SWITCHING TEST 


64S: 


6S$: 


ee gingseee SE See Ect 


Bgo488 
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SES 0089 
eSTACK, SP 


PC , SUBCLR 
e4 ;CERR AFTER SCLR 


#BAI RKCS2(RS) ;SET BUSS ROOR INCR INHIBIT 
SHDTAB, RKBA(RS) : WORD TABLE 
#-66.,RKWC(RS) ;WORD COUNT. 


,RKDACRS)  ;SETUP HEAD ADDR 


;RESTORE STK PTR 


pero. »RO 
DATAOCRO), HOTAB } HEADER WORD FOR RKBA 


#<WRHEAD> . RKCS1(RS) “WR ITE HEADER CMD 
TSOOO0, TEMP1  # ;SETUP TIME 

PC FROY *FIND RDY 

pevcstat_ PT PREGH STATES | MEAOER CHD 
aceRR, HC a 
201 sCERR AFTER WRITE HEADER CMD 
MSG18 *ABORTING BALANCE OF TESTS 
$e OP ‘ABORT DRIVE 
eCCLR, RKCS1(RS) sCONTR CLE 


AR 
pC GSTAT >GET LATEST STATUS 
ac 2D. SBIN!D. -DROY!D. VV!D.DRA> , SBMR2 -SHOULD BE VALUE 


77 'MSG AO ERROR AFTER WRITE HEADER CMD 


PC, CKMR3 -CHECK MR3 
267 -MSG BO ERROR AFTER WRITE HEADER CMD 





RKCS1.(RS) 
ARL(RS) — ;SELECT WORD 1 

#<0- SPOK!D. CART!D.DOOR!D. BRHM!D. TFOK? , SBNR2 

300 -MSG Al ERROR AFTER WRITE HEADER CMD 
PC. CKMR3 

270 


;MSG Bl ERROR AFTER WRITE HEADER CMD 


sREAD CYL DIFF IN RKMR2 


;CYL DIFF/OFFSET NOT CLEARED AFTER WRITE HEADER CMD 
READ CYL ADDR IN RKMR3 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 1  MACY11 27(732) O1-OCT-76 10:34 PAGE 89 
OZR6EHB.P11 Te4 BASIC WRITE/READ HEADER & HEAD SWITCHING TEST _ SEC 0090 


005737 001404 TST CYLADD 
rare BEQ a 


4723 
4724 


;CYL ADDR NOT CLEARED AFTER WRITE HEADER CMD 


HEAD ;HEAD CTR 
SSTACK, SP ;RESTORE STK PTR 


;CERR AFTER SCLR 
HEAD 
eee ORIN) ;SETUP HEAD ADDR 


#RHTAB, RO 
#<RDHEAD> . RKCS1(RS) “READ HEADER CMD 
TSOO00, TEMP1  ;SETUP TIMEOUT 


PC. FRDY <FIND RDY 
71 -NO RDY AFTER READ HEAVER CMD 
ace ,HCS1 
174 . AFTER ADER CMD 
MSG18 tC BORT BALANCE DF TEeTe 
$e0P “ABORT DRIVE 
RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
RKDB(RS),(RO)+ :2°ND WORD 
RKDB(RS),(RO)+ :3°RD WORD 
#OLT, RKCS2(RS) 

GSTAT 
73. -DLT AFTER READ HEADER 

18 ‘ABORTING BALANCE OF TESTS 

$eoP -ABORT DRIVE 


¥CCLR,RKCSI(RS) ;CONTR CLEAR 
*GET LATEST STATUS 
#010. SPIN!D.DROY:D. VW#D. DRAD , SBNR2 sSHOULD BE VALUE 


» CHECK 

30! >MSG AD AFTER READ HEADER CMD 
CKMR3 sCHECK MR3 | 

27 -MSG BO ERROR AFTER READ HEADER CMD 








UNIBUS 1 ORIVE DIAGNOSTIC PART 1 
OZR6HB . P Te4 BASIC URITE/READ HEADER & HEAD SWITCHING TEST 


4779 


012765 


100000 


000000 
000026 


004374 


MACY11 27(732) 


MOV 
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1 ae ee 





o 7 


OD 
a 


; 


ease asanenaseceneseesesenananassssssissssisasiass 
af lanes 





ay sSELECT WORD 1 

WR OBR EL oRaGR 

MOV <0. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMRE 

JSR CKMR2 

ERROR 302 -MSG Al ERROR AFTER READ HEADER CMD 
CLR SBNR3 

JSR PC, CKMR3 

ERROR 272 :MSG Bl ERROR AFTER READ HEADER CMD 


MOV SCCLR,RKCS1(RS) 


gS SEE ESE EAE 0 9 9 9 9 9 A a a a 
TEST 2S BASIC WRITE/READ HEADER TEST; ALL 1’S, 20 SECTORS 


th 
$I ED DGS TEE SOS, OT 
: FINDING No O's AS DATA FROM TH THE "PREVIOUS. Test. 


s 
+ yr 7 lptcrnaaartememainns: mannan «nmap, 


tST2s: 


JSR PC ROCYLD sREAD CYL DIFF IN RKMR2 
ye 
RROR 172 -CYL DIFF/OFFSET NOT CLEARED AFTER READ HEADER CMD 

69S: FR RDCYLA “READ CYL ADDR IN RKMR3 

1 
aa ERROR 264 sCYL ADDR NOT CLEARED AFTER READ HEADER CMD 

SWAB 

MOV HEAD,RKDA(RS)  ;RESTORE RKDA 

SWAB 

MOV #RHTAB,R1 

CLR WDCNT sHEADER WORD COUNT 

MOV HEAD, RO 

ASL sDOUBLE RO 

MOV DATAO(RO), TEMP1 ;GET THE ’SHOULD BE’ DATA P 

MOV = (R1.)+, HOW) sREAD HEADER WORD I 

CMP , TEMP! 

BEQ ;: . 

ERROR 202 *READ HEADER MISMATCH 

INC WOCNT 

CMP WOCNT, #3 :DO ONLY 1 SECTOR 

BNE 3$ 

i #3 3 HEADS DONE? 

BEQ TSTes ; 65 To Rat NXT TST IF YES 

IMP 1500. 





sigaanisasaigaaassassesesssssngegs Ue 


- 
wo 


SSBeRRSEReE SS IoasasS 


oR 


06 
il 


od 9 See 


~ 
h 
-_ 
<< 


- 
1 
th 
-_ 
A 
x 


RRR 
{= “3 





7+ 
025074 


= 


bb be te 
ore 88 





012737 00000 
012706 


a1 


BASIC WRITE/READ HEADER TEST; ALL 1°S, 
001174 


a Sates 2 PART 1 


MACY31 





1S: 


1 27(732) 


MOV 
MOV 





MOV 
MOV 


=r 
ia 
45 


JSR 


gueges sta . 
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20 SECTORS 


#1 ACK SP 
aSTACK 


PC, suncUR 


SEO 0092 


ITERATION 
‘RESTORE STK PTR 


-CERR AFTER SCLR 
#BAI,RKCS2(RS) ;SET BUSS ADDR INCR INHIBIT 
ROATAL FGA) *XFER 1’S ONLY 

sWORD COUN 






8<CFMT!WRHEAD> , RKCS1(RS) sWRITE HEADER CMD 
TEMP] ° ;SETUP TIMEOUT 
PC. FRDY *FIND RDY 
200 <NO RDY AFTER WRITE HEADER CMD 
PC, GSTAT “GET FRESH STATUS 
acERR, HC 
201 -CERR AFTER WRITE HEADER CMD 
MSG18 ‘ABORTING BALANCE OF TESTS 
$e0P “ABORT DRIVE 
8<CFMT! SELDRV> , RKCS1(RS) -GET 20 SECTOR STATUS 
T10, TEMP 
PC, FRDY  sFIND_RDY 
11? “NO RDY AFTER SELDRV CMD 
aD. FORM, HMR2 
312 -FORMAT NOT SET AFTER WRITE HDR CMD 
#CCLR,RKCSI(RS) ;CONTR CLEAR 
PC. GSTAT ‘GET LATEST STATUS 
4020. .SPIN!D. DROY!D. VV!D.DRA> , SBMRe -SHOULD BE VALUE 
Boy CKhne MSG AOD ERROR AFTER WRITE HEADER CMD 
Be CMR sCHECK MR3 
267 -MSG BO ERROR AFTER WRITE HEADER CMD 
#CCLR,RKCS (RS) 
al, » KARL CRS) -SELECT WORD 1 
aches SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
PC, CKMR2 
300 sMSG Al ERROR AFTER WRITE HEADER CMD 
Be RMR 
270 sMSG B81 ERROR AFTER WRITE HEADER CMD 
SECNT sSECTOR COUNT 
¥STACK, SP -RESTORE STK PTR 





UNTBUS — DRIVE DIAGNOSTIC PART 1 
OZREHB.P Tes 


SReeusenas 


555555 
NOUS 





- 
a 
4932 
1334 
4935 
= 
4346 
4946 





bee Rae GO P -< b= bs b> Be ps 


f 


Lon FRHSRSH 


ooo 
— pp 


, 
‘ 


= 
ae 


IE 
RD 
ee 
£0 


R 


4 | 
++ 
At 
a”) 


004737 
104024 


= 


2 
2 


‘s 


B55 
+e 


012765 
Me 

737 
104117 


a 


Ge 


050320 
se 
te 

047632 


100000 


000010 


004364 





0043" 


MACY11 27(732) 
BASIC WRITE/READ HEADER TEST; ALL 1’S, 20 SECTORS 


655: 


665: 


6S: 


SR 
ERROR 
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Se9 0093 


PC, SUBCLR 
24 -CERR AFTER SCLR 

8<CFM > ,RKCS1(RS) -READ HEADER CMD 
Is : ; SETUP TIMEOUT 

7{ NO RDY AFTER READ HEADER CMD 
SCERR,HCSI 

ue fare" aes 
$eop ORT BRIE 

,(RO)+ 31°ST FROM SILO TO RHTAB 

RKDB( RE)’ (RODS 13 WORD 
RKDB( RE)’ (RO)+ 33? RD WORD 

#DLT, RKCS2(RS) 
66$ 
PC. GSTAT 

173 -DLT AFTER READ HEADER CMD 

MSG18 “ABORTING BALANCE OF TESTS 
$eoP “ABORT DRIVE 

#<CFMT!SELDRV> , RKCS1(RS) 
T10, TEMP 
PC. FRDY sFIND RDY 

11? <NO RDY AFTER SELDRV CMD 

#0. FORM, HMR2 

13 sFORMAT NOT SET AFTER READ HDR CMD 


ACL. RK RKCS1(RS) ;CONTR Puna 
‘GET yet T STATUS 
Pentel SPINID. DRDY!D. >, SBMR2 
CKMRe2 


"CHECK fi 
1 *MSG AD 


SBMR3 
PC  CKMRS CHECK M2 
i BO ERROR AFTER READ HEADER CMD 


;SHOULD BE VALUE 
AFTER READ HEADER CMD 


accu RKCS1(RS) 
RKMRICRS)  ;SELECT WORD 1 


H 
#0; 3P0K?0.CART!D.DOORED. BND. TFOK> SERRE 

. -MSG Al ERROR AFTER READ HEADER CMD 
PC, CKMR3 


r 


4947 





BoRePRERPEREM CT tts 83 : 


Pll 


025374 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 
OZREHB. 


T2S 
104272 


sie 


901401 


vil 
MACY11 27(732) 
BASIC WRITE/READ HEADER TEST; ALL 1’S, 


ERROR 272 -MSG Bl ERROR AFTER READ HEADER CMD 
000000 MOV CLR. RKCS1(RS) | 
il JSR Bk satis *READ CYL DIFF IN RKMR2 
001402 ist CYLDIF 
ERROR 172 sCYL DIFF/OFFSET NOT CLEARED AFTER READ HEADER CMD 
051210 67$: JSR PC ROCYLA ‘READ CYL ADDR IN RKMR3 
001404 TST CYLADD 
ve ERROR 254 -CYL ADDR NOT CLEARED AFTER READ HEADER CMD 
001704 MOV #RHTAB, R1 
001460 3$ CLR WDCNT sHEADER WORD COUNT 
001466 oo440D DATAL, TEMP! sGET ‘SHOULD BE’ DATA 
SBE oowoo “* BM ARSED renRarGgge™ 
BEQ — BR IF YES 
ERROR 202 *READ HEADER MISMATCH 
001460 S$ INC WOCNT 
001460 000003 CHP HOCNT, #3 - JUST 1 SECTOR AND 1 HEAD 
; SiTEST 26, WRITE B READ HEADERS CYLINDER O HEAD OO 
; LOY peers remem 
000001 001174 MOV #1. STIMES 1 ITERATION 
001100 MOV aSTACK, SP STORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 _ sCERR AFTER SCLR 
001500 oc0004 MOV #HDTAB, RKBA(RS) :HEADER WORD TABLE 
177676 000002 MOV 4-66. RKWC(RS) ;WORD COUNT. 
000000 001372 MOV , TOCYL 
001 001406 MOV oe CALADD =; SETUP 
001450 #0, HEAD TO FILL 
000000 O01454 MOV #0; FORMAT : HEADER 
051460 JSR PC; FHDTAB : TABLE 
000000 MOV #0, RKDC(RS) -CYL# 
000027 000000 MOV #<WRHEAD> FKCS1RGD -WRITE HEADER CMD 
bot 4g 004400 MOV TS0000 TEMP TINE Ou T 
JSR FRDY 
ERROR 200 iff RDY AFTER WRITE HEADER CMD 
050256 JSR PC. GSTAT <GET FRESH STATUS 
l 004336 BIT #CERR,HCS1 
BEQ 64S 


01-OCT-76 ato; 34 PAGE 93 
20 SECTORS 





SEQ 0094 


UNTBUS y DRIVE DIAGNOSTIC PART 1 
OZREHB.P Te6 WRI 


— 


sists fot 


o> 
UW) 


eae 


fs 


Bung RONSSeeRe See SOeSROSOR 





060720 
047164 


10000f 


047164 


004374 


004374 


000000 
004400 


004336 


000010 


MACY11 27(732) 
TE & READ HEADERS CYLINDER O, 


64S: 


65S: 


665: 


RROR 
YPE 
JMP 
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HEAD 0 


201 :CERR AFTER i AIT HEADER CMD 
MSG18 ; ABORT ING STS 
$e0P : ABORT DRIVE 


#CCLR,RKCSI(RS) ;CONTR CLEAR 


PC, GSTAT : GET LATEST STATUS 
#02 abit. -DROY!#D, VV!D.DRA>, sSHOULD BE VALUE 
ae -MSG AO ERROR AFTER WRITE HEADER CMD 
PC, CKMR2 :CHECK MR3 
267 -MSG BO ERROR AFTER WRITE HEADER CMD 
aCCLR RKCS1(RS) 
RKMRI(RS)  ;SELECT WORD 1 
Be’ GS TAT 


acd. SPOK!D. .CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
-MSG Al ERROR AFTER WRITE HEADER CMD 


SBMR3 
PC, CKMR3 

270 :MSG Bl ERROR AFTER WRITE HEADER CMD 
SECNT sSECTOR COUNT 

“STACK, SP sRESTORE STK PTR 

PC, SUBCLR 

24 sCERR AFTER SCLR 

#0, RKDC(RS) -CYL # 

#RHTAB, RO 

#RDHEAD, RKCS1(RS) *READ HEADER CMD 

TSOO, TEMP ; SETUP TIMEOUT 

PC. FRDY “FIND RDY 

171 -NO RDY AFTER READ HEADER CMD 

ACER, HCS! 

a sCERR AFTER READ HEADER CMD 

,i'S 18 sBBORTING Be BALANCE OF TESTS 


. ;1°ST WORD FROM SILO TO RHTAB 


ROBES): (Nt 18°80 HD 


a msec) ;SEE IF bate Lae 
GSTAT 
3 sDATA LATE ON READ HEADER 
MSG18 ‘ABORT BALANCE OF TESTS 
$e0P ' -:QBORT DRIVE 


SEQ 0095 





2 
op 





a 


By 


PRENESEVENLU UU LLL MSRERPRNMR Ada ide ca 





CFVVSVITS TUPI UTI UU 
b= & o & = b= = » > P - B+ 0+ 2} 2 H-2 Hh = & « H-< 


wre O 


e C-- <= h— 








WRITE & RE 


Oe DRIVE DIAGNOSTIC. PARI 
O26122 020027 002110 
O26126 00133e 
026130 004737 051640 
eae 905037 901460 
iw 018701 001 
150 012037 0014 
is 91 
a ae & 
166 O01 
170 1 
Bs Gy a 
001460 
1361 


8 
8 


001174 


AES 
aie 


004374 








R peat e7( 732) re 10:34 PAGE 95 
HEADE AD 0 


YLINDER OQ, 


67$: CMP RO, SRHTAB+:32. ;ALL 66 WORDS DONE? 


BNE 65g -BR IF NO 
JSR PC, SORT -SORT RHTAB INTO SRTTAB SO THAT IT 
*BEGINS WITH SECTOR O 
CLR NT sBEGT 
MOV aSRTTAS, RO ‘ACTUAL HEADER TABLE 
MOV sHDTAB, Rl ‘CALC HEADER TABLE 
685: MOV (RO)+, 
MOV (R1)+. TEMP] 
CMP HOWD, TEMP 1 sCOMPARE ACTUAL WITH CALCULATED WORD 
BEO -BR IF COMPARE 
ERROR “READ HEADER MISMATCH 
69$: INC T 
CMP NT, #66. sALL WORDS DONE? 
BNE -BR IF NO 





SNe etre tiitititiisiti ere: 
TEST 27 SEEK FROM CYL 0 TO 1 & READ HEADERS 





‘ 15 RECEIV a oe eS | G, 4g SO wee STATUS AFTER RDY 
+ AFTER uA REcE Lie CERR Ys, EXORINED_FOR ANY ERROR Is 1 

is on. OIFEE nee tee fe fo ve yal Maeda yc Tere 

is DIFFERENT FROM CYL 0 T0 SHOW THAT THE HEADS DID ACTUALLY ROVE. 

j i etic scietast to anaemeneeee 








MOV ss 

HOV heStORE STK PTR PTR 

io ' sCERR AFTER SCLR 

MOV 

MOV ‘SET FOR CYL ! 

MOV 

MOV RKCSI(RS) ; 

MOV T 110, TEMP io 

JSR 

ERROR i CMD 

MOV #<D.PIP!D.SPIN!D’ ek sLOAD SHOULD BE DATA 
JSR PC, CKMR2 

ERROR 203 MSG AO ERROR DURING SEEK CMD 


SEQ 00% 


C10 
01-OCT-76 10:34 PAGE % 


AD HEADERS 


AGNOSTIC 


Pll RIVED 


UNTBUS 





SEG 








4 
| Z . 
: . . ° 
= ~ = F 4 : = e : 2 2 - 
ie Ba A SS ws 
fo ER ge & 2 is gow & 
tape : ed He He g § 
eee el Pe ee ee. 
ei REE ect p dred gt G88 ES 2 
yBep eee oS 8 =F e Elen? xB 5 a0 6 ee 
» ££ a» = a» 
A tee! 
g Seok g ot FE J ; 
os SxBex ox Bs = age e 230 on 
bok Gaeethee cee SH sates es Saes avis 


SOBBESHE BERERESBE SngE 


ge 


“SE SBUBDESHE BREE BE 








012737 Se734e 


013737 O0144e 





026420 
Oe6426 


SE UUM MOOS To FFF Fe FRU AARA BSB DBRS OR 


o-4 4 4 4 wo -9 4 eer de Oe-4r 4 Cie ae Koen Doe Kee Ke Roe Boe oe Boe Ree oe oe ee ee ee ee ee ee ee ae ee ee re ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee Roe ok ok ae | 
CSVESDASVASDASVASDASDASDASPASDASDASDASPESDASPASPASDASDASPASDASPASDASDESDASDASDASDASDASDASDASDASDASDASDI-DESDASDRSDASPASDASDASDASDASDASDASD AS DASDASDASDASDASDASDASDAsDOSD 


ee 9 ee er a! OR Oe RE Re = ee ce er et Ree Om we ee ee om rrr er me a= 4 


UNTBUS a DRIVE DIAGNOSTIC PART 1 
OZREHE.P Te? SEEK 


B17 
173 


FROM CYL QO 1018 


“ . 






ie ee ee 
of ie ine 
ae ;osooi 
518 1041 
a: 
2 ie oy oe om 
ise } l 004374 
5187 052504 
He ee a7 
1 052566 
ot 1 
te 704 picree 100000 000000 
te 1 000001 000026 
ee a 
12 Be ee = 
ee wa 
= pierte 100000 
se oie, Onno 

e Se conn 
cil " 
a 

14 104415 
Bat 012706 001100 

1 050320 

es biaves Spada! 000020 
Be ie fee bie Ome 
se eg | 


MACY11 


6S$: 


OP 1 


3S 


4 
a8 


g2S3 St 


) 
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ADERS 





SES 0098 


(RS) 
SUNIT RK ats ) ;DRIVES 
acl RKCS1 (RS) ‘DRIVE CLEAR CMD 
Ti0. TEMP! 
PC. FRDY -FIND ROY 
1S] -NO RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN ‘TEST FOR ATTN 
14 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


SCCLR,RKCSI(RS) ; 
PC AT 
8<O!D.SPINID. oi 
PC. CKMR2 


T LATEST STAT 


:Wid.5 DRA> > BHR ;SHOULD BSE VALUE 


273 {RSG AO ERROR AFTER DRIVE CLEAR CHD 
Peck “CHECK MR3 

-MSG BO ERROR AFTER DRIVE CLEAR CMD 
#CCLR, RKCS1(RS) 
#1, RKARL (RS) >SELECT WORD 1 
acd. 'D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
274 -MSG Al ERROR AFTER DRIVE CLEAR Cru 
Pe CNRS 
266 -MSG 81 ERROR AFTER DRIVE CLEAR CMD 
SCCLR, RKCS1(RS) 
SUNIT. RKCS2(RS) 
PC, RDCYLA sREAD CYL ADDR IN MSG Be 
CYLADD 
CYLAOD, #1 
207 -CYL ADDR INCORRECT AFTER SEEK CMD 
aSTACK, SP sRESTORE STK PTR 
PC, SUBCLR 

-CERR AFTER SCLR 
SESCAPE 
#1, RKDC(RS) sCYL 





te tae jRERD HEADER CMD 
' ‘PEND ROY 


UNTBUS 7. one IAGNOSTIC PART 1 — MACY11 27(732) O1-O0CT-76 10:34 PAGE 98 
OZR6HB. P SEEK FROM CYL 0 TO 1 & READ HEADERS SEG 0099 





ERROR 171 sNO ROY AFTER READ HEADER CMD 
1o0000 6004336 BIT NCERR, HOS! 
RR 174 AFTER R CMD 
a Het ee LPS. 
047164 JMP $eoP : ABOR 
000024 673: MOV RKDB(RS),(RO)+ 31°ST WORD FROM SILO TO RHTAG 
000024 MOV RKOB(RS),(RO)+ $2°ND WORD 
000024 MOV RKDB(RS),(RO)+ :3°RD WORD 
000010 BIT sDLT,RKCS2(RS) 
ISR PC. GSTAT 
ERROR 73. sDLT AFT READ HEADER CHD 
YPE 19 : ABORT I TESTS 
JMP $e0P : ABORT DRIVE 
68$: 
ea bh sCHECK 1°ST WORD ONLY:CYL# 
ERROR 211 -CYL O HEADER ON CYL 1 
000001 3$ CHP RHTAB, #1 
ao ERROR 202 ‘READ CYL WORD HEADER ERROR 
: J PC, SWTST ;SEE IF SW 14 OR 8 IS SET 
BR TSt30 to REXT 





TES 
SAETURN HERE IF SW 14 IS SET OR 
‘SHO WITH GAR <7203 > APPLY 


teres Io 8 ERROR ns ;CERR AFTER SCLR 


ero (RS) ; 41 ogi Bt tanta ORIVE. 





HSS RAMBRARM UY Saute ei hn eee a ee ea ann 


JSR pe 10, Ten * FIND ROY 
ERROR 1 *NO RDY AFTER SEEK CMD. 
004400 l 

att TSR PeOPAtIS sFIND ATTN 

ERROR <NO ATTN AFTER SEEK CMD 
100000 004336 BIT i HCS1 

ERROR -CERR AFTER SEEK CMD. 
050320 695: JSR 

ERROR -CERR AFTER SCLR 
"1210 JSR PC, RDCYLA 
001404 qs cYLADD 

ERROR 4 sCYL ADDR IN RKMR3 NOT=RKDC 





UNIBUS RKO6 ae te PART 1 


000137 


ponpaanaa naan REEpeEoooneaa ERE EERE eROOCnonnnEE g 


012737 


SEEK FROM CYL 0 TO 1 & READ HEADE 





151604 


MACY11 27(732) 


7$: 

CLR 

pal 

Q 

JMP 

70S: JMP 
10S: 

INC 

BIT 

BNE 

JMP 

128: ; 
tf 
JMP 


eitittt tt tit iit: 


t$T30 


64S: 


SuS {gBAUgaes 8 USS 222qy Sage 
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SEQ 0100 

SESCAPE 

PFLG 

ISLPERR -SW 9 WAS SET. 

JSLPAOR -Sd 14 OR 8 WAS SET 
LPFLG 

#SW9, ISWR sLOOP ON ERROR? 
6$ “YES, RECONDITION DRIVE 
1$ *RETURN TO MAINLINE 
SES aSWR LOOP ON ? 
ae : YES SO SNOT TION DRIVE 
2$ “RETURN TO MAINLI 


KLLFLLLLLLLELELARAALALELELLLALLLEE 


SET EEE 
AD HEADERS CYLINDER 1 


39-3 9g 9 9 9 2g a a aE 


#1. STIMES -:D0 1 ITERATION 
#STACK, SP *RESTORE STK PTR 
PC, SUBCLR 
-CERR AFTER SCLR 
SHDTAB, RKBA(RS) :HEADER WORD TASLE 
66. RKWC(RS) ;WORD COUNT. 
#1, TOCYL 
TOCYL,CALADD §; SETUP 
» HEAD TO FILL 
#0, FORMAT * HEADER 
PC; FHOTAB STABLE 
#1, RKDC(RS) -CYL# 
#<WRHEAD> . RKCS1(RS) “WRITE HEADER CMD 
TSO000, TEMP1 ;SETUP TIMEOU 
PC. FRDY sFIND ROY 
"NO RDY AFTER WRITE HEADER CMD 
PC. GSTAT -GET FRESH STATUS 
#CERR,HCS1 


Sar 
sop” 
#CCLR,RKCSI(RS) ; 


:CONTR 
PC. GSTAT -GET LATEST STATUS 
#<0!0.SPIN!D. DROY!D. VV!D. DRA , SBMR2 


;CERR AFTER WRITE HEADER CMD 
: TING Gee rnce OF TESTS 


sSHOULD BE VALUE 


Fee Ce ee CECE EEE 


=§ 

~ 

~ 
D 





Sots 22) asses FE Be See Gasnneted ag 


3. 


- 

ta} 

= 

= 
— 
o-r 


Toney? 


| 
| 





OSeS04 
004376 


004374 


peter 65S: 


000010 


67§: 


he TRGNOS TS . ra A HEADERS EYEINOER 1, “HE cgerr6 its PAGE 100 


"tay 
Pe, cxIR3 


#CCLR,RKCS1(RS) 


Be: eerat 


if K 
“ho E AFTER WRITE HEADER CMD 


CEO ME AFTER WRITE HEADER CMD 


sSELECT WORD 1 


#<6. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMRe 


PC, CKMRe 


PC, CKMR3 


270 


SECNT 


BSTACK , SP 
PC, SUBCLR 
e4 


#1,RKDC(RS) 
SRHTAB, RO 


ll ~ TUP at Hineour 





17] 


To 





PKOB(RS) 


T ‘pxcsecns) 
PC, GSTAT 


ie 


RO 
6s$ 


PC, SORT 


WOCNT 
sSRTTAB, RO 


RKDBURS) os 


#RHTAB+ 132. 


;MSG Al ERROR AFTER WRITE HEADER CMD 
;MSG Bl ERROR AFTER WRITE HEADER CMD 


;SECTOR COUNT 
;RESTORE STK PTR 


sCERR AFTER SCLR 
sCYL # 


{NO ROY AFTER READ HEADER CHD 


FAGORTING BALANCE OF TESTS 
SABORT DRIVE 
1°ST WORD FROM SILO TO RHTAB 


: igs ee 


;SEE IF DATA LATE 


;DATA LATE ON READ HEADER 
ABORT BALANCE OF TESTS 
ABORT DRIVE 


a gos oe 


: SORT eoToe TINTS SRTTAB SO THAT IT 
> BE WITH SECTOR 0 


. T 
sACTUAL HEADER TABLE 


SEG 0101 
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OZR6EHB.P11 T30 WRITE & READ HEADERS CYLINDER 1, HEAD 0 SEG 0102 









ae 001500 MOV SHOTAB, R1 ;CALC HEADER TABLE 

14 : V (RO)+, 
E38 $137 rayne oes ROY CRIS TERI 

1472 004400 ns HOMO, TEMP sCOMPARE ACTUAL WITH CALCULATED WORD 
EL OR Fits iB IF HEADER MISMATCH 
5403 001460 69S: INC WOCNT 

G01460 000102 CMP SEAT , 66. sALL WORDS DONE? 
BNE :BR IF NO 

S408 
S409 









5410 : itesT 31, TEST RECA IBRATE COMME) & REDD ict 
oui ; ATE TEST RECALIBRATE COMMAND & READ HEADERS 
Bs r THIS TEST DOES A RECALIBRATE & READS HEADERS. 
14 x IT VERIFIES THAT WRITING HEADERS ON CYL 1 FROM THE PREVIOUS 
SuiS * TEST DID NOT OVERWRITE CYL 
Sul? 3% AN ERROR IN THIS TEST INDICATES THAT HEADS: 
18 = i 
: MOVED TO A CYL OTHER THAN 1 
Hed if OR B DID NOT GET BACK TO CYL O 
2uSs - HRSHREREESRRAERR~ FEEXEREEF ESS FREER LESERE EEE ERAR EERE EEE ELE EL ERS 
Bacoee prera? 1 001174 teal MOV. #1. STIMES 1 ITERATION 
euSe 030074 012706 ratte MOV eSTACK, SP i ReSTORE STK PTR 
bus? 030100 004 05032 JSR PC, SUBCLR Y 
Buse bapiDY soMas4 ERROR 24 GERR AFTER SCLR es 
130106 O01 001370 MOV #1. FRCYL re ; PARAMETERS 
730114 CLR Tot -FOR 
1 030120 Oi 1 001400 MOV #| IF _ ZERROR TYPEOUTS 
aus GOL OF Ba0613 p00. NOY” #105, 8 a -RECAL CMD 
S434 rea BSP OO144 004400 MOV rb TEMP : SETUP pg aneouT 
cuss GaoleN toni OO Tg Tah 1) 
S437 030156 012765 100000 000000 MOV #CCLR, RKCS1(RS) 
a ete S 000026 Hoy » ARI (RS) ;SELECT WORD 1 
1301 20000 004364 BIT “0: RTZ, 
S441 030204 001001 BNE 1$ 
Stic 030206 104307 ERROR 307 :RTZ NOT SET DURING RECAL CMD 
: (RS) : CT WORD 
a Baneis DONT? i: RORY — . 
7 0 004374 #<D.PIP!D. SPIN!D. Ww .DRA> , SBMRe sLOAD SHOULD BE DATA 
sg oo z WER PC, CKMRE NERK ORR 
104213 ERROR 215 Ce AO’ ER ERROR DURING RECAL CMD 


| Ses 
! 
| 
' 


T10 
DORENB.PIie salen ©) eal RECALIGRATE COM NPANS & READ HEADERS © 10:34 PAGE. 102 | «SEQ 0103 
004376 CLR SBMR3 MRS SHOULD BE 0° 
004737 O0S2S66 JSR PC CKMR3 “CHECK MR3 
104214 ERROR 214 “MSG BO ERROR. DURING RECAL CMD 
#1,RKMRI(RS)  § ;SELECT WORD 1 


PC’ GSTAT 
cD, R120. .REV!D. SPOK!D. CART!D.DOOR!D.BRHM!D. TF OK> . SAMR2 





ERROR Bye * “MSG Al ERROR DURING RECAL CMD 
Be PMR 

ERROR 216 “MSG Bl ERROR DURING RECAL CMD 
PC, RDCYLD :READ CYL DIFF IN MSG A2 
CYLDIF 

RROR e217 -CYL DIFF INCORRECT DURING RECAL CMD. 
#12$, SESCAPE 
#-1. TEMP! TUP TIMEOUT 
PC, FATTe2 SPEND AT 

ERROR 5S <NO ATTN AFTER RECAL CMD 
aCERR ,HCS1 

ERROR 220 sCERR AFTER RECAL CMD 


sCCLR RKCS1(RS) ;CONTR. CLEAR 
GStaT T LATEST STATUS 
ry Wb D DSC!D.SPIN!D. DRDY!D.VV!D.DRA>,SBMRe ;SHOULD BE VALUE 


SI RCE AD AFTER RECAL CMD 
SBMR3 

: CHECK 

“MSG 30 AFTER RECAL CMD 


S1(RS) 
RS) ;SELECT WORD 1 


'D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMRe 
;MSG Al ERROR AFTER RECAL CMD 


o~ > 





;MSG Bl ERROR AFTER RECAL CMD 


PC, ROCYLD sREAD CYL DIFF IN RKMRe 

ae 

47 -CYL DIFF/OFFSET NOT CLEARED AFTER RECAL CMD 
PC, RDCYLA *READ CYL ADDR IN RKMR3 

cy ADD 

SO sCYL ADDR NOT CLEARED AFTER RECAL CMD 
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DZR6HB T31 TEST RECALIBRATE COMMAND & READ HEADERS 
$507 030522 658: 
5509 
Bett Meee BObTD Soy Hi NTT RRESO CRE, DRIVES 
Bets V SEA Rae) * “DRIVE CLEAR CMD 
sS13 001434 004400 MOV T10. TEMP 
SS14 047632 JSR PC, FRDY sFIND RDY 
aT RROR 13 <NO ROY AFTER DRIVE CLEAR CMD 
pe 050016 JSR TSTATN TEST FOR ATTN 
$518 ad ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
000000 | MOV #CCLR,RKCS1(RS TR CLEAR 
1CRS) ; 
S52 JSR PC ° GET RaSEET STATUS 
3 l 004374 MOV § #<0!D. SPIN!D.ORDY!D.VV!D.0RA>,SBMR2 = ;SHOULD BE VALUE 
oe OS2504,., JSR MR2 -CHECK MR2 
sone -MSG AD ERROR AFTER DRIVE CLEAR CMD 
Ese? 0S2S66 sCHECK MR3 
-MSG BO ERROR AFTER DRIVE CLEAR CMD 
253 = 190000 oo0000 
pal 900001 000026 -SELECT WORD 1 
S533 001720 004374 #<0.SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMRe 
Pose -MSG Al ERROR AFTER DRIVE CLEAR CMD 
5536 004376 
c38 ante -MSG B1 ERROR AFTER DRIVE CLEAR CMD 
SS40 
5S41 4§: 
csu2 SCOP! 
5543 001100 MOV ¥STACK, SP -RESTORE STK PTR 
eeu 050320 JSR PC, SUBCLR 
2ey9 ERROR 24 -CERR AFTER SCLR 
S548 001176 CLR SESCAPE 
2eeg 1704 MOV TAB,RO _ 
ppb! 000000 MOV ry > RKCSI(RS) *READ HEADER CMD 
O14 004400 HOY 00, TEMP! ; SETUP TIMEOUT 
aay ams EPROR 5 "NO RDY AFTER READ HEADER CMD 
S555 100000 004336 BIT ,HCS1 
2ees ERROR ea sCERR AFTER READ HEADER CMD 
cosa ° TYPE MSG18 ‘ABORT BALANCE OF TESTS 
555 047164 JMP Scop “ABORT DRIVE 
000024 67S: MOV (RS), (RO)+ ;1°ST WORD FROM SILO TO RHTAB 
000024 MOV RKDB(RS),(RO)+ 32° 








shee | — DRIVE DIAGNOSTIC PART 1 
T3l TEST RECAL IGRATE COMMAND & READ HEADERS 


SND | 


BBUF ROERERS 
SSGGGGORoooos 65 SB8585 BSS8 88 


ARAMA 
ONCOL Wwe-O 


" 


Ob b~ & = B+ & = 9 -o 


= 
a) 


55 8535 SS8oo' 

— > be 
Rukees dos BPSSES 
Ti) O—= b= fe 
[orc 


8 8885 
pH fee > poe f= Hao bs feos de a ha Pe bs pb > fe 


23SFSEH SE ASKREVS FSR 






eed Gace Pae Go Bat fh - Pat 


Guat 0 Be fs iw ho fem eo Fas pane bo Poms Pee 
rururu 
oe en oe 


oruru 


016520 


| 
! 
t 
‘ 
| 


o000e4 


S88 t= 88 
o Roe 
oS es 


to 
Sis 
3 


000010 


000001 


004336 


000001 


147714 


MACY11 27(732) 


68$: 


6$: 


695: 


703: 
10S: 


MOV 


TST 


01-OCT-76 16:34 PAGE 104 


RKDB(RS), (RO)+ 


#OLT, RKCS2(RS) 


PC, SWTST 
TSt32 

PC, SUBCLR 

#1, RKDC(RS) 
#SEEK.RKCS1(RS) 


T10, TEMP! 
PC. FRDY 


°3’RD WORD 


;DLT AFTER READ HEADER CMD 
sABORTING BALANCE OF TESTS 
ABORT DRIVE 


;CHECK WORD O, CYL # ONLY 
;CYL 1 HEADERS ON CYL O 


;READ CYL WORD HEADER ERROR 


sSEE I IF SW _ OR 8 IS SET 
3 AGO TO +258 ST 

IF SW 14 IS SET OR 
ies oy WITH SWR <7:0)> APPLY 


i RECONDITION SACK TO CYL 1 


;SEEK CMD TO RECONDITION DRIVE. 
; SETUP TIMEOUT 


RDY 
NO RDY AFTER SEEK CMD. 


FIND ATTN 
NO ATTN AFTER SEEK CMD 
;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR 


;CYL ADDR IN RKMR3 NOT=RKDC 


;SW 9 WAS SET. 
;SW 14 OR 8 WAS SET 


sLOOP ON ERROR? 





SES 0105 
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OZR6HB.P11 T31 


TEST RECALIBRATE COMMAND & READ HEADERS SEQ 0106 
.Y NDITION DRIVE 
bess Baisse B00rs? o30ae2 im | OSS tREPURN To MAINED 
ee52 Osis30 14 sage LPFLG 
ae 
Sess O31 23e O32777 Bb t cao 147674 ant 45H, aS -LOOP ON E 
1 1305 BNE 8$ ‘YES RP BNDT TION DRIVE 
sees 03124 900137 030676 JMP 4§ = RET I 
eee ee Tee TT TTT TTT TTT TETESESTOTESSTOSTOOSTOSTOT EST TT 
jATEST 32 SINGLE INCREMENT SEEKS TO CYL 410 
apse :% THIS TEST DOES SINGLE INCREMENT SEEKS OUT TO CYL 410 
* WITHOUT ANY WRITING OR READING SO AS NOT TO INADVERTENTLY 
eb3i : i DESTROY DATA. 
S633 + SLELLRFERRLEPEEL EE LEEK KLEE FEEL RFE RL GEEKS ESEL ELA LEE HRS EAE REESE 
S634 031252 O00004 tST32: SCOPE 
S635 O3154 012737 000001 001174 MOV 1, $TIMES ITERATION 
S636 O3leb2 012706 001100 MOV Seta K, SP ‘Re STORE STK PTR : 
1K 1266 004737 050320 JSR PC, SUBCLR 
031 104024 ERROR 24 -CERR AFTER SCLR 
S640 031274 005037 001370 CLR FRCYL FROM CYL 
S64 031300 O1e737 1 001372 MOV #1, TOCYL -TO CYL 
ob4 1 1 1 001400 MOV #1; CALDIF *CALCULATED DIFF. 
S644 031314 1S: 
S645 031314 104415 SCOP1 
bib 031316 012706 001100 MOV “STACK, SP -RESTORE STK PTR 
S648 031322 004737 050320 JSR PC, SUBCLR 
5649 O313e¢6 104024 as ERROR 24’ -CERR AFTER SCLR 
Brey 031330 012737 032240 001176 MOV #10$, SESCAPE 
S652 031326 013765 001372 000020 MOV TOCYL,RKDC(RS) ;CYL TO SEEK TO 
S654 031 1 000017 oo0000 MOV ¥SEEK,RKCS1(RS) ;SEEK CMD 
c6ss 031 13737 001434 O04400 MOV T10, TEMP! ; SETUP TIMEOUT 
S655 931360 004737 047632 JSR PC. FRDY 
S657 031364 104131 ERROR 13] NO RDY AFTER SEEK CMD 
031366 012737 030140 004374 MOV #<D.PIP!D. SPIN!D. VV!D. DRA» , SBMRe sLOAD SHOULD BE DATA 
031374 0S2S04 JSR PC, CKMR2 
1400 104203 ERROR 203 MSG AO ERROR DURING SEEK CMD 
BEES OSI4DG DONTE? pocsee FcR BE CRMRG ge ay. =5 
S663 Bai4d rie ERROR 204 BO ERROR DURING SEEK CMD 
031414 012765 100000 O00000 MOV #CCLR, RKCS1(RS) _— CLEAR 
031422 012765 000001 Oo00026 MOV #1,RKMRI(RS) SELECT WORD 1 
S667 631430 004737 050256 JSR TAT 
bb 031434 012737 003720 004374 MOV #0. FWD!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
5669 031 004737 052504 JSR PC. CKMRe 
5670 O31 104205 ERROR 205 sMSG Al ERROR DURING SEEK CMD 
5671 005037 004376 CLR SBMR3 
567 1454 004737 052566 JSR PC. CKMR3 -CHECK MR 
1460 104 ERROR 206 -MSG Bl ERROR DURING SEEK CMD 





UNIBUS RKOE DRI IAGNOSTIC P 
DZR6EHB.P11 YE58 Stee 
Bg75 004737 051124 
S676 023727 001402 
S677 001401 
2e78 1042le 
012737 
913737 001442 
ION OSO144 
0327 100000 
001401 
104210 
012765 100000 
737 pensar 
Glera? DONG 
OOo? Oars 
104134 
1 1 
ss: 12765 900m 
aru : 004737 O0S0256 
012737 001720 
5703 004737 
si Gales Oils 
004376 
5707 He = 
5708 
57093 
S710 031642 004737 051124 
S711 1646 001402 
S7le 16S2 001401 
S713 O316S4 104137 
5714 
S71S 031656 
SHE coves xargs 
5718 pt a Nae: 
5719 O316 12765 000005 
5720 Baz 0137 001434 
o7sh 1706 O04 047632 
031712 104151 
5723 031714 004737 OSO0I6 
S725 031722 104154 
5726 
5727 
5728 100000 
57293 050e56 
5730 010340 


| 








004374. 


yeaa 
peers 10:34 PAGE 106 


ART MACYL1 27(72e) 
INCREMENT ecend Fo CYL 41 
JSR PC, RDCYLD 
000001 CHP CYLDIF, 
ERROR le -CYL DIFF INCORRECT DURING SEEK 
001176 2S: MOV #12$, SESCAPE 
004400 MOV T2500, TEMP! :SETUP TIMEOUT 
JSR PC. FATT2 sFIND ATTN 
abies ERROR \ hipew ‘NO ATTN AFTER SEEK CMD 
| BEQ ug’ "e 
a ERROR 210 -CERR AFTER SEEK CMD 
oo0c00 NOV BCCLR, RKCS1(RS) CONTR CLEAR 
004374 NOV #<0.DSC!D. SPIN!D. DRDY#D, WW!D.DRAD , SBMR2 :SHOULD BE VALUE 
ERROR 133 :MSG AD ERROR AFTER SEEK CMD 
JSR PC, CKMR3 sCHECK MR3 
ERROR 134 -MSG BO ERROR AFTER SEEK CMD 
po0000 MOV #CCLR, RKCS1(RS) 
000026 NOV #1, RKARI (RS) sSELECT WORD 1 
004374 NOV #<D. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
ERR 135 . ;MSG Al ERROR AFTER SEEK CMD 
JSR PC, CKMR3 
E 136 - - -MSG B1 ERROR AFTER SEEK CMD 
SR PC ROCYLD sREAD CYL DIFF IN MSG A2 
BEQ 65$ 
ERROR 137 sCYL DIFF NOT CLEARED AFTER SEEK CMD 
65S: : 
000000 MOV #CCLR, RKCS1(RS) 
000010 MOV SUNIT RKCS@(RS) DRIVES 
000000 MOV #C 1(RS) sDRIVE CLEAR CMD 
004400 MOV T10, TEMP 
JSR PC FRDY  sFIND RDY 
ERR 1S} -NO RDY AFTER DRIVE CLEAR CMD 
JSR PC gTSTATN ‘TEST FOR ATTN 
fs ERROR iS4 ~ sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
000000 MOV #CCLR,RKCSI(RS) ;CONTR CLEAR 
, JSR -GET LATEST STATUS 
- MOV sSHOULD BE VALUE 


#010. SPIN!D. DRDY!D. VV!D. ORA> , SBMRE 


% Fe 
- = 





SEQ 0107 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 
OZR6HB.P11 T32 SINGLE 


7: 


SERRARR OD on acea ae DUM GueP ee PEERED SAND AN 


t 
oy 


sagaesBass 


004737 
O4e 


0S2S04 


000000 
000026 


004374 


001372 


000633 


MACY11 27(732) 
INCREMENT SEEKS TO CYL 410 


PC, CKMRe 


33: 


4S: 


65: 


675: 


683: 
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273 


ee CKMR3 


aCCLR RKCS1(RS) 
1, RKMRI CRS) 


SEG 0108 
sCHECK MRe 
;MSG AD ERROR AFTER DRIVE CLEAR CMD 
CHECK MR3 
>MSG BO ERROR AFTER DRIVE CLEAR CMD 


;SELECT WORD 1 


Bc GS 
8:5, SPOKD.CART!0.DOORID. BRAND. TFOK> , SBMR2 


2 

SBMR3 
Pp 
266 


PC,RDCYLA 


CYLADD, 
367 
FRCYL 


TOCYL 
4§ 


1$ 


PC, SWTST 


TST33 


PC, SUBCLR 
e4 


TOCYL , RKDC(RS) 
#SEEK epee RS) 


110, TEMP 
13] 


T5000 TEMPL | 


pC FAT > 


| 
tata 


1 


PC, SUBCLR 


CKMR3 


C,FRDY 


;MSG Al ERROR AFTER DRIVE CLEAR CMD 
;MSG Bl ERROR AFTER ORIVE CLEAR CMD 
;READ CYL ADDR IN MSG B2 


;CYL ADDR IN RKMR2 NOT=RKDC 


;DONE CYL 410? 
;BR IF YES 


SEE IF SW 14 OR 8 IS SET 

: > GO wg NEXT TEST 

Py URN HERE IF SW 14 IS SET OR 
chi B WITH SWR <7:0> APPLY 


sCERR AFTER SCRL 
sCYL# 


fait K oP ail DRIVE. 
FIND ROY 
NO RDY AFTER SEEK CMD. 


sFIND ATT 
NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


UNIBUS RKOG ORI 

Pil 
Oselve 104024 
ey Ba 
C32206 001340 
ste 004737 
14 «104024 
032216 005037 
fe 
177 





- 
q 


ha of 


aay Gee 


pee derisinnin asioinatsi initials aati i ie Ree ge 


ie 


ee ee ee ee ee em ee ee ee ee EE Re SED er Ee ey 4 ee 
= ] 
NN 


_——esw Oe eee Oe ——_—- = 


r 


DIAGNOSTIC PRAT ] 
3e SINGLE INCREMENT SEEKS 


O61378 177777 


146666 


146646 


001174 
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0 CYL 410 SEG 0109 
ERROR 24 -CERR AFTER SCLA 
OE OCYL 
CMP TOCYL, #-1 ‘ALL CYL DONE? 
BNe 7$ 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR SESCAPE 
TST LPFLG 
SEQ 695 
IMP SSLPERR -Su 9 WAS SET. 
69S: IMP JSLPADR -SW 14 OR & WAS SET 
10S: 
INe LPFLG 
I Sud, sLOOP ON ERROR? 
BNE &S <YES, RECONDITION DRIVE 
JMP 2g ‘RETURN 10 MAINLINE 
les: 
INC LPFLG 
QI #SWS, aSWR “LOOP ON ERROR? 
BNE 5g -YES, RECONDITION DRIVE © 
43 “RETURN TO MAINLINE 
3s FFSREREEESE SSSREFERSHAASEFLEKESHLSSE LSPS SRAEHFHSLSETERSSLERE 
-&TEST 33 eee READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL 8 
THAT 41 
TH Conta Ihe BaD sEc tor 0, TRACK mitch is. THEN BY THE 
FACTORY ro ) WILL BE STORED 
CHREOER OF A ERROR PRINTOUTS. 
ING THE bse NFO 


toe net cae 
aaa 
THIS s DONE SO AS NO 10. oe Ie INFO BR ANY AL AN ALIGNMENT PACK BY WRITING 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
THIS IS THE FIRST TEST WHERE THE READ DATA COMMAND IS PERFORMED 
Ts 2a, 


ae TS USED 





eee ee ee ee @e ee @e ee ee Oe ee ee Ge Se Se 
le le oN li le ol ee ee 


jets 
ay #1, STIMES *>D0 1 ITERATION 
MOV aSTACK, SP RESTORE STK PTR 
J PC, SUBCLR 
ZBROR 24 -CERR AFTER SCLR 
CLR Tene -SECTOR CTR 
CLR ‘Os22 SEC, 1220 SEC, 2=DONE 





RKOG ORIVE DIAGNOSTIC PART 1  MACYI1 27(732) OQlI- 
Pil T33 READ & SAVE BAD SECTCR INFO & TYPE P 


001474 


2 


:34 PAGE 109 
* SE@ 0110 


BS 


;BSE INFO NO GOOD IF SET 


ies TABLE AI 22 SECTOR FORMAT 
= * a OR 0 


a bata ¢ 


;NO_ROY PETER READ DATA CMD 
;GET FRESH STATUS 


28 
bi 


7 


A 
14 


tnt 
1¢ 
sh 


4 


pimeieeogees ¢ 


<=” 
tt 
] aoa 


;CERR AFTER READ DATA CMD 
SET BSE ERROR FLAG 


yh 
Og 
? 










586 sDTE AFTER READ DATA CMD 
100000 
S864 sDLT AFTER READ DATA CMD 
eee 001474 :BSE INFO OK 
cs 001474 ag ts iBSE READ OK? 
po0002 000006 ADD i FRy NEXT SECTOR 
| 5871 004402 INC 
5872 004402 o00005 CMP ; READ ALL S SECTORS? 
oe . F 
S874 OO4404 TS 
5875 001002 BNE 
Ses an s CANT ON SECTORS 0,2,4,6,8 
2e8 } G0 TO T 
5878 6S: t RANT READ ON SECTORS 1,3,9,7,9 
= oe BR -2GO TO 
5e5 1 ES MOV SETUP FOR OF BSE INFO 
sb Bieas? eat 004406 MOV ark OUT TYPE INFO. 
001404 ‘BRANCH IF DATA CARTRI 
ALIGNMENT CAR 
001474 NC -SET BSE 
17 BR 
5623 005237 004404 93 I 
| 2e50 1411 sehen BEO 
| = 
| Be See tree meee a 
1 002314 000004 MOV sBSE TABLE FOR 20 SECTOR FORMAT 
| aS 12768 001001 000006 MOV :HEAD 2, SECTOR 1 
| BR 
005737 001216 10$: TST 
£238 001014 BNE :2GO TO NEXT TST IF NOT 1’ST PASS 
| 


TT — eS ee ee - 
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OZREHB.P1) 33 READ 8 SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
$833 O4401 960670 TYPE -CART SERIAL # 
12746 003314 MOV bpeees -(SP) 
$901 737 056336 JSR PC, $0820 :CONVERT DBL BINARY WORD TO OCTAL 
706 JSR " ce ‘TYPE SERIAL # 
1044901 001205 TYPE é 
2304 104401 001205 TYPE 
28 ss PELSFLLESFLALERALLLLELLLLLALLELLALLAALALALELELALAALALALSLLLASLELS 
ATEST 34 DETECT INNER LIMIT 
5505 i THIS TEST VERIF.ES THAT THE LAST _SYLINOER IN IN THE 8 sind 
eal :s iF ma 1S TEST FF FAILS, Ris T IROLCAYES that t HEADS r, ue cet 
2315 if FOREn FRE 
“} §914 = i m mo D DESTROYING bee INFO OR AN ALIGNMENT CARTRIDGE 
e315 i SINCE IS A SEEKING OR LIMIT DETECTION PROBLEM. 
23/8 ; “SHES SSS ES SEFERESEASESHRHEFFS SLES EARAAESEA SELL LELERPRERE SEERA SEES ESE 
5918 téT34: SCOPE 
5919 000001 0601174 MOV a1 STIMES : ITERATION 
S920 001100 MOV tack. SP thes Tone STK PTR 
Sg2} 050320 JSR PC, SUBCLR YS CLEAR 8 GET STATUS 
bce ERROR 24 CER AFTER SCLR 
SSo4 001430 CLR LPFLG 
ease 032 000020 MOV SPAT,RKMRI(RS) ;PARITY & WORD O 
oe ca RY Eee tRe) Seb Be 
see 1 

53 taeres rates 004400 MOV TEMP] 

047632 JSR Po, 10, Ter sf IND ROY 
e338) Sue7st ERROR ROY FROM SEEK WITH BAD PARITY 

050016 JSR _— ST FOR ATTN 
2233 O3e7Ne ERROR ts IS ATTN FROM SEEK WITH BAD PARITY 

100000 000000 HOV gRKCSL(RS) 
pes Geo 004374 HOV pC Corer SPIN!D. -DROY"D. Wy . WV!D. DRA> , SBMRE 
5938 ERROR 11 °MSG AO ERROR AFTER SEEK WITH BAD PARITY 
$939 901200 004376 MOV #<D.FLT!0.PAR> , SAMR3 
5940 JSR PC -CHECK MR 
sous 033004 104111 ERROR 11] *MSG BO ERROR AFTER SEEK WITH BAD PARITY 
eau 033006 005065 0000c6 CLR RKMR1 (RS) sREMOVE PARITY & SELECT WORD 0 
Sous 1 MOV SCCLR, RKCS1(RS) 
onic MOV SUNIT.RKCS2(RS) ;DRIVES 
ea MOV act RKC 1(RS) sDRIVE CLEAR CMD 
2 Ter pe bROY sFIND RDY 

ERROR 151 -NU ROY AFTER DRIVE CLEAR CMD 

c 3 SR PC, TSTATN *TEST FOR ATTN 
; ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
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NNER LIMIT SEO 0112 
o12765 399000 ponone MOY #CCLR.RKCSI(RS) :CONTR CLEAR 
JSR <GET LATEST STA 
012737 010340 004374 MOV 9.020, SPIN!D.DROY2D. W!D. >, -SHOULD BE VALUE 
] JSR PC sC 
1s ERROR 273 sMSG AO ERROR AFTER DRIVE CLEAR CMD 
iB beset JSR PC, CKMR3 -CHECK MR3 
116 1 ERROR 265 -MSG BO ERROR AFTER DRIVE CLEAR CMD 
033120 01 100000 900000 MOV #CCLR, RKCS1(RS) 
le 01 000001 000026 HOV #1, RKARL (RS) sSELECT WORD 1 
G33140 01 ae 004374 NOV #<0.SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 
Basics 1 ERROR 2 :MSG Al ERROR AFTER DRIVE CLEAR CMD 
053154 005037 004376 CLR SoNR? 
neath raed — ERROR 71 -MSG Bl ERROR AFTER DRIVE CLEAR CMD 
033166 012765 100000 o00000 HOY ACCLR,RKCS1(RS) 
we ieee 004374 st 8<b SPIN!D.DROY!D. VV!D. DRA> , SBMR2 
004737 052504 JSR PC, CKMR2 -CHECK MR2 
le 104 ERROR “MSG AO ERROR AFTER CLEAR CMD 
14 Areas 004376 CLR -MR3 SHOULD BE CLEAR 
133220 O04 0S2S65 ISR “CHECK MR3 
033224 104i ERROR *MSG BO ERROR AFTER CLEAR CMD 
MOV ; 410. 
rhs D0000C HOV SEEK 8 CYL 410. 
Js sF Y 
1K om ERROR NO ROY AFTER SEEK CMD - 
Gebeee meen JSR PC. GS - 
051 JSR PC’ FLIM -FIND LIMIT DETECT 
ERROR 160 *LIMIT DETECT NOT FOUND BEFORE TIMEOUT 
040000 004364 BIT 
ERROR sDRIVE NOT UNLOADING AFTER LIMIT DETECT 
034252 IMP ‘BYPASS REST OF TEST 
094166 001176 1S: OV sMUST ESCAPE TO CYCLE UP DRIVE & TEST SWR 
ra CLR RAMA LR sSELECT WORD 0 
140 004374 nov #<6.0SC!D.PIP!D. SPIN!D. VV!D. DRA , SBMR2 
pene fpron lel tECe AG ERROR AFTER INNER LINIT DETECT 
004376 Rov #0.sk110.FL Sines 
— ERROR 162 : BO ERROR AFTER INNER LIMIT DETECT 
100000 000000 MOV R, RKCSI(RS) 
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DZREHB.P1) T34 DETECT INNER LIMIT SEQ 0113 
601 039376 012765 000001 000026 MOV S1,RKMRI(RS)  ;WORD 1 
601 004 JSR PC’ GST 
l 10 045720 004374 MOV #0, UNLD!D.REV!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
14 16 JSR PC, CKMRe : 
l 163 RROR igs :MSG Al ERROR AFTER INNER LIMIT DETECT 
l 050016 SR TSTATN 
6017 104165 ERROR 165 :NO ATTN AFTER INNER LIMIT DETECT 
050320 PC, SUBCLR 
Bhes fase | poNass ERROR 24 sBUER BETER SCLR 
6021 013737 001434 oO44Oe2 MOV T10, TEMP2 iBT UP TIMEOUT 
b0ce 04737 051336 JSR pC ; FIND HEAD 
l 166 aaa ERROR 166 ap iH HOME NOT FOUND BEFORE TIMEOUT 
bos reene Ios ? E 16? iT Ab Heaps Ror FOUND BEFORE TIMEOUT 
1 001434 o04402 MOV T10, TEMP2 “SETUP TIMEOUT 
70 JSR pC, FATT! iF IND ATTN 
74 ? ERROR “ATTN NOT FOUND BEFORE TIMEOUT 
% 001176 2S: CLR SCAPE 
Oat 000000 MOV RKCS1(RS) ;CONTR 
ose l ares Aone? JSR Q :GET W559 STATUS 
033514 012737 OS0340 004374 MOV #<0.0SC!D. SPIN!D. DROY'D. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
piss Gee IoNoES ERR sasate: hse A 
133526 1 ERROR “MSG AD AT END OF HEAD LOADING 
6026 005037 004376 CLR 
6037 O54 737 052566 JSR PC, CKMR3 «CHECK MR3 
oss l ERROR 64 *MSG BO ERROR AT END OF HEAD LOADING 
033542 100000 000000 MOV #CCLR, RKCSI(RS) 
6041 033550 000001 000026 MOV #1,RKMRI(RS)  ;SELECT WORD 1 
os tees tore aire roo 
1 004374 . SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMRe 
6044 052504 
Bove “MSG Al ERROR AT END OF HEAD LOADING 
004376 ; 
£047 0S2S66 
bOug sMSG B1 ERROR AT END OF HEAD LOADING 
ener 100000 00000 
6052 051124 JSR PC, RDCYLD sREAD CYL DIFF IN RKMR2 
6053 001402 T I CYLDIF 
epee ERROR 1 sCYL DIFF/OFFSET NOT CLEARED AT END OF HEAD LOADING 
051210 658: JSR PC, ROCYLA “READ CYL ADDR IN RKMR3 
1404 T I C 
6059 ERROR 176 sCYL ADDR NOT CLEARED AT END OF HEAD LOADING 
6560 66S: 
ibe 
100000 900000 MOV #CCLR, RKCS1(RS) 
6064 001 900010 MOV SUNIT,RKCS2(RS) ;DRIVES 
6065 MOV ¥CLEAR, RKCS1(RS) sDRIVE CLEAR CMD 
6066 1434 004400 MOV T10, TEMP! 
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PC, FROY ;FIND ROY 
Roy AFTER DRIVE CLEAR CMD 


—— TEST FOR ATTN 
1S4 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


accLR, RKCS1(RS) sCONTR CLEAR 
-GET LATEST STATUS 
i DRDYD, ¥V!D. DRA, SBNR2 *SHOULD BE VALUE 


;MSG AO ERROR AFTER DRIVE CLEAR CMD 


Be a ‘CHECK MR3 
266 -MSG BO ERROR AFTER DRIVE CLEAR CMD 
#CCLR, RKCS1(RS) 
@1,RKMRI(RS)  ;SELECT WORD 1 
#<D. SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMRE 
274 -MSG Al ERROR AFTER DRIVE CLEAR CMD 
CKMR3 
266 ;MSG B1 ERROR AFTER DRIVE CLEAR CMD 
PC, SWTST ‘SEE IF Su 14 08 8 IS SET 
TSt3s : 0 NEXT TEST 
RETURN F SW 14 IS SET OR 


Sil et WITH (7:0> APPLY 





PC, SUBCLR 
24 -CERR AFTER SCRL 
TOCYL,RKDC(RS) ;CYL# 

sSEEK,RKCS1(RS) j SEEK CHD TO RECONDITION DRIVE. 
T10, TEMP -SETUP TIMEOUT 

PC. FROY -FIND RDY 

131 "NO ROY AFTER SEEK CMD. 
Pe,ratie sFIND ATTN 

e ne “NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


apn 
e4 ;CERR AFTER SCLR 


SES 0114 
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TECT INNER LIMIT 
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001372 
00137e 





000633 


000000 
004400 





144674 


001174 


INC TOCYL 
CMP TOCYL, #411. sALL CYL DONE? 
BNE 683 
JSR PC, SUBCLR 
ERROR 24 -CERR AFTER SCLR 
C 
TST tPrLG 
P RR SH g SET. 
70$: § JMP set pene i4 OR 8 WAS SET 
20S: 
JSR PC, SUBCLR 
ERROR 24 -CERR AFTER SCLR 
MOV aSRTSPL RKCS1(RS) -START SPINDLE CMD 
MOV T10, TEMP TIMEOUT 
JSR PC. FRDY ‘PEND RDY 
ERROR lel ‘ROY NOT FOUND AFTER ST SPIN CMD. 
MOV 7100 TEMP2 sSETUP TIMEOUT 
JSR FATT “FIND ATTN 
ERROR BS “NO ATTN AFTER ST SPIN CMD. 
INC LPFLG 
BIT 8SW9, ISWR sLOOP ON ERROR? 
BNE 10$ <YES, RECONDITION DRIVE 
a J 3 “RETURN TO MAINLINE 


5 5 RRRRRRE REGGE EERE LEAR ARREE EEE EE EEE LEAL EEE EERERELE EEE EEE ES 
j #TEST 3S FORMAT PACK 


+ THIS TEST FORMATS ENTIRE PACK IN 22 SECTOR FORMAT BY 
® DOING 1 CYLINDER INC AL SEEKS 

% FROM O TO 410 WITH WRITE HEADER COMMANDS (ALL TRACKS). 

% - HEADERS WILL BE READ IN THE NEXT TEST 


# 
s KLLLLKELLLLLKLLLLLLLELEAAEAELAAELELELELEAEAAEAAALAAA LARA LALALAS 


+éT35: SCOPE 
MOV. #1, STINES ;;D0 1 ITERATION 
TST Roots SEE TF MODULE TESTING 
Tre RUNNING MODIFIED VERSION OF TEST 
228: TST LIMERR ;CHECK IF FOUND LIMIT DETECT ERROR 
ERROR io ;FORMAT TEST BYPASSED, LIMIT DETECT ERROR 
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001474 
os 
001372 
001372 1406 
001450 
1454 
0S1460 
901450 O00006 
901450 
000000 
001 004400 
04 
100000 004336 
047164 
0014S0 000002 
001450 
051460 
000001 001406 
0014S0 
0014S4 
000001 001400 
001370 | 
000001 001372 
001100 
050320 
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RR 
2 
13$ 


sCHECK IF FOUND BSE INFO OK 
sFORMAT TEST BYPASSED-BSE ERROR 


PC, SUBCLR 
24 -CERR AFTER SCLR 
TOCYL 
TOCYL,CALADD =; SETUP 
#1, HEAD TO FILL 
#0, FORMAT : HEADER 
PC; FHDTAB : TABLE 
BHDTAB,RKBA(RS) ; THIS SECTION 
8-66. ,RKWC(RS) OF CODE 
HEAD -IS TO RESTORE STANDARD FORMAT 
HEAD, RKDA(RS) ;TO CYL O 
HEAD ‘HEAD 1 AND 2 
#<WRHEAD> . RKCS1(RS) jHRITE HEADER CMD 
TSOO00, TEMP1 © ; SETUP TIME 
PC. FROY “FIND RDY 
200 “NO ROY AFTER WRITE HEADER CMD 
PC. GSTAT <GET FRESH STATUS 
acERR, HCS1 
64 
201 sCERR AFTER WRITE HEADER CMD 
MSG18 -ABORTING BALANCE OF TESTS 
$E0P “ABORT DRIVE 
HEAD, #2 
11 
#2, HEAD 
PC’ FHDTAB 
#1, CALADD : SETUP 
HEAD “FOR 
FORMAT ‘FHDTAB ROUTINE 
#1. CALDIF : SETUP 
RCYL : 
#1, TOCYL -ERROR REPORT 
¥STACK, SP sRESTORE STK PTR 
PC, SUBCLR 


;CERR AFTER SCLR 


SEG 0116 
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T3S FORMAT PACK 





SEQ 0117 
005737 001362 TST NODTST sSEE IF {foDULe TESTING 
Nee 036402 001176 ROV +168, SESCAPE 
036102 001176 183: §§ MOV #10$, SESCAPE 
000020 198: HOV CALADD, RKDC (RS) ;CYL & 
50 000006 MOV HEAD, RKDA(RS)  ;HEAD & 
SWAB HEAD : 
7 00000 MOV #SEEK,RKCSI(RS) ;SEEK CMD 
004400 MOV T10, TEMP -SETUP TIMEOUT 
JSR PC. FRDY -FIND RDY 
ERROR 13h "NO RDY AFTER SEEK CMD 
004374 HOV i ,PIP2D. SPIN!D. WD DRAD , SBIR ‘LOAD SHOULD BE DATA 
ERROR 203 :MSG AO ERROR DURING SEEK CMD 
CLR 3 -MR3 SHOULD BE 0 
J Be ci MR -CHECK MRS 
E 204 “MSG BO ERROR DURING SEEK CMD 
990000 MOV #CCLR,RKCS1(RS) ;CONTR CLEAR 
HOV #1, RKOR (RS)  ;SELECT WORD 1 
004374 MOV #<6.FWD!D. SPOK!D.CART!D. DOOR!D.BRHM!D. TFOK> , SBMR2 
JSR PC CKMR2 ; 
ERROR 205 -MSG Al ERROR DURING SEEK CMD 
CLR SBMR3 7 
: alain RCE 61 ERROR DURING SEEK CMD 
JSR’ PC, ROCYLD 
000001 CHP CYLDIF, #1 
ERROR 212 sCYL DIFF INCORRECT DURING SEEK 
4S: TST MODTST -SEE IF MODULE TESTING 
BEQ -BR IF NO 
001176 MOV $17%, SESCAPE 
BR 21S 


001176 208: MOV #12$, SESCAPE 
004400 215: MOV #2S00.,TEMP1 | ;SETUP TIMEOUT 


JSR PC, FATT2 -FIND ATTN j 
ERROR 132 ;NO ATTN AFTER SEEK CND 4 
004336 BIT aC ,HCS1 
as ERROR 210 -CERR AFTER SEEK CMD 
000000 MOV BcCLR RKCSI(RS) ;CONTR CLEAR 
JSR -GET LATEST STATUS 
004374 HOV a<D.DSC{D. SPIN!D. DRDYD. VWV!D.DRAD , SBNR2 -SHOULD BE VALUE 


SLL LLLP RTIOOEE de 


ERROR 133 ‘MSG AO ERROR AFTER SEEK CMD 


999990 0B EERE EEE TERRE EOE nE OE DooRREREEERRRRREEEES te 


RKO6 OR 


peo 


l 


<F 28 


Stotosettet: 
HEGSORR 
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004376 
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SEO 0118 
SBMR3 
PC, CKMRS » CHECK NBS 
l -MSG BO ERROR AFTER SEEK CMD 
#CCLR, RKCS1(RS) 
#1, RKARL (RS) sSELECT WORD 1 
<0. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBIR2 
135 -MSG Al ERROR AFTER SEEK CMD 
SBMR3 
PC, CKMR 
136 -MSG Bl ERROR AFTER SEEK CMD 
PC, RDCYLD sREAD CYL DIFF IN MSG Ae 
CyLDIF 
35 -CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR, RKCS1(RS) 
SUNIT.RKCS2(RS) ;DRIVES 
#CLEAR, RKCS1(RS) sDRIVE CLEAR CMD 
TiO, TEMP 
PC. FRDY -FIND RDY 
15] -NO RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR ATTN 
1S4 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


SCCLR,RKCSI(RS) ;CONTR CLEAR 
;GET LATEST STATUS 


#<0!D. SPIN!D. DRDY!D. VV!D. DRA> , SBMR2 sSHOULD BE VALUE 
—_ hoe A 

ers -MSG AD AFTER DRIVE CLEAR CMD 

PC. CKMR3 sCHECK MR3 | 

265 -MSG BO ERROR AFTER DRIVE CLEAR CMD 

#CCLR, RKCS1(RS) 

#1, RKARI (RS) >SELECT WORD 1 


#<0.SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 

a, sMSG Al ERROR AFTER DRIVE CLEAR CMD 
PC, CKMR3 
266 -MSG Bl ERROR AFTER DRIVE CLEAR CMD 
Ad 


CCLR,RKCSI(RS) ;CONTR CLR 
CALADD,RKDC(RS) ;RESTORE RKDS AFTER CLEAR 
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SEQ 0119 

PC,ROCYLA -READ CYL ADDR IN MSG Be 
CYLADD, CALADD 

232 -CYL ADDR IN RKMR2 NOT=RKDC 
#STACK, SP -RESTORE STK PTR 

PC, SUBCLR 

24 -CERR AFTER SCLR 

SESCAPE 
PC FHOTAB sFILL HEADER TABLE 
HEAD, RKDACRS) -SET TRACK # 

#HDTAB, RKBA(RS) ;HEADER WORD TABLE 

“66. .RKWC(RS) ; T 


#-66. ( 
CALADD,RKDC(RS) CYL # 


&<WRHEAD> , RKCS1(RS) sWRITE HEADER CMD 


TSOO0O, TEMP1  ;SETUP TIMEOUT 

PC. FRDY -FIND RDY 

ont -NO RDY AFTER WRITE HEADER CMD 

PC. GSTAT -GET FRESH STATUS 

pea He 

201 -CERR AFTER WRITE HEADER CMD 

MSG18 ‘ABORTING BALANCE OF TESTS 

$E0P “ABORT DRIVE 

#CCLR,RKCSI(RS) ;CONTR CLEAR 
GSTAT -GET LATEST STATUS 

#<0'!D. SPIN!D. DRDY!D. VV'D. ORA> , SBMR2 sSHOULD BE VALUE 

PC .CKMR2 : 

27? -MSG AO ERROR AFTER WRITE HEADER CMO 

Be CMR sCHECK MR3 

267 -MSG BO ERROR AFTER WRITE HEADER CMD 
R. RKCS1(RS) 

ai, Rute Fes -SELECT WORD 1 

<6. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 

PC. CKMRe 

300 -MSG Al ERROR AFTER WRITE HEADER CMD 

PC CKMR3 

270 -MSG Bl ERROR AFTER WRITE HEADER CMD 


MODTST ;SEE IF MODULE TESTING 


ride. 


ST OCNe SOG l moO l Ai -f =7b ye ‘ 


ORMAT PACK SEQ 0120 
001402 BEQ 23$ -BR IF NO 
000137 036142 IMP 14$ “ELSE RESTORE HEADERS ONLY 
005237 o014S0 . 23$: INC HEAD 
23727 OO14SO o00002 . CMP HEAD, #2 
901006 | BNE 6 
923727 001406 000632 CMP CALADD, #410. § ;HEAD 2, SEE IF CYL 410 
00100¢ BNE 63 -DO NOT WRITE ON CYL 410 HEAD 2 
137 036074 JMP 7§ 
023727 001450 O00003 6S: CMP HEAD, #3 “ALL HEADS DONE? 
00 1e3¢ BNE S$ :BR IF NO 
001450 CLR HEAD 
005237 001406 INC CALADD 
37 0013 INC FRCYL -FOR ERR REPORT 
0 INC TOCYL =FOR ERR REPORT 
000137 . IMP 3$ 
8$: 
004737 050320 JSR PC, SUBCLR 
104924 ERROR 24 -CERR AFTER SCRL 
013765 001372 O00020 69%: MOV TOCYL,RKDC(RS) ;CYL# 
012765 000017 oD0000 MOV ¥SEEK,RKCS1(RS) ;SEEK CMD TO RECONDITION DRIVE. 
013737 001434 oO4400 MOV T10, TEMP ; SETUP TIMEOUT 
047632 JSR pe FRDY RDY 
104131 ERROR 1a] NO RDY AFTER SEEK CMD. 
013737 001444 OO44O0 MOV TSOO0, TEMP 
004737 OS0144 JSR pC Fatt sFIND ATTN 
104132 ERROR 132 <NO ATTN AFTER SEEK CMD 
032737 100000 004336 BIT.  #CERR,HCS1 
001401 BEQ 
104210 ERROR 2] -CERR AFTER SEEK CMD. 
004737 050320 70$: § JSR PC, SUBCLR 
104024 ERROR 24 >CERR AFTER SCLR 
005337 001372 DEC TOCYL 
023727 001372 177777 CMP TOCYL, #-1 sALL CYL DONE? 
001340 BNE 693 
004737 050320 JSR PC, SUBCLR 
104024 ERROR 24 -CERR AFTER SCLR 
005037 001176 CLR SESCAPE 
005/32 0014 TST LPFLG 
14 EQ 715 
143020 %P ISLPERR -SW 9 WAS SET. 
77 ‘143012 71$: JMP JSLPADR -SW 14 OR 8 WAS SET 
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735 FORMAT PACK SEQ 0121 

6459 
6460 036074 7$: 
6461 036074 004737 052770 JSR pc SUTST ;SEE IF IF Si Su 14 OR R 8 IS SET 
pubs 036100 0o00560 BR TSt 
4 RETURN HERE IF SW 14 IS SET OR 
Busy Sid 8 WITH SWR <7:0> APPLY 
6465S 
6 1 10$: 
Bib; Gable pusear poraap we wees 

l 901000 143024 I #SW9, ISWR -LOOP ON ERROR? 
6469 036114 001310 BNE 83 3YES, RECONDITION DRIVE 
470 036116 000137 034774 JMP 4§ , yRETORN TO MAINLINE 
6472 O36l2e2 les: 
6473 O36l22 005237 001430 INC LPFLG 
6474 126 001000 143004 BIT 8SW9, ISWR LOOP ON ERROR? 
6475 134 3 BNE 85 -YES, RECONDIT LON DRIVE 
B476 1 137 035376 IMP S$ “RETURN TO MAINLINE 
6478 
6479 036142 005237 001450 14$: INC HEAD 
6480 036146 023727 OO14SO 000003 CMP HEAD, #3 ;SEE IF ALL HEADS DONE 
6481 036154 0014 BEQ 15$ :BR IF YES TO GO BACK TO CYL O 
bugs 036156 000127 035376 JMP o$ *ELSE REPEAT FOR NEXT HEAD 
BYR4 036162 OOSOES 000006 15$: CLR RKDA(RS) sSEEK TO CYL 0 & READ HEADERS 
bYgS 036166 005037 001372 CLR TOCYL :TO RECONDITION DRIVE 
6487 1 ? MOV EK,RKCSI(RS) ;SEEK C RECONDITION DRIVE. 
6488 hee 1 Bot me BpSDo MOV if, TEMP SEY aa negut 
6489 036206 004737 047632 JSR , 
430 036212 104131 ERROR NO NOY AFTER SEEK CMD. 
64 036214 13737 001444 OO44O0 MOV TSOOO, TEMP 
cage K 1041 uae. FPROR pe ratte NO ATIN AFTER SEEK CMD 

14S Pr 
6495 100000 004336 BIT Lee. HCS1 
6496 036226 00 BEQ 72$ 
437 036240 104210 210 -CERR AFTER SEEK CMD. 
6499 036242 004 050320 725: JSR PC, SUBCLR 
500 1 ERROR 24 :CERR AFTER SCLR 
eye baPseq bi Soee pohaee NOY READS BKCSICRED -READ HEADER CMD 
ee a a a ey 
004737 04 JSR aD RDY 

6508 036274 10417 ERROR tT ed -NO RDY AFTER READ HEADER CMD 
6503 036276 100000 004336 BIT ACER, HCS1 
fet Beebe rata ERROR 174 sCERR AFTER READ HEADER CMD 
cele 036310 104401 060720 TYPE MSG18 ‘ABORT BALANCE OF TESTS 
b513 036314 000137 047164 JMP $e OP “ABORT DRIVE 
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SEO Sie2 
74$: MuV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO 70 RHTAB 
MOV RKOB RS)» (Ro ee se’ND WORD 
MOV :3°RD WORD 
BIT sOLT, RKCS2(RS) 
SEQ 
JSR PC GSTAT v 
ERR 173 sDLT_AFTER READ HEADER CMD 
MSG18 SABORTING BALANCE OF TESTS 
IMP $e OP “ABORT DRIVE 
738: 
CMP RHTAB, TOCYL “CHECK WORD O (CYL#) ONLY 
BEQ 73$ -BR 
on ERROR 310 ‘READ CYL WORD HEADER ERROR 
JSR PC SWTST F SW 14 OR . IS SET 
ot TST36 : EF tb Rex? ‘Tee 
iehuas eRe TP 1S SET OR 
me -SW 8 KITH SWR <7:0) APPLY 
INC LPFLG 
BI ' -LOOP ON ERROR? 
BNE 1S$ YES RECONDITION DRIVE 
ae J 4§ *RETURN TO MAINLI 
; INC LPFLG 
BI sSW9, sLOOP ON ERROR? 
ene 15$ -YES. RECONDITION ORIVE 
J Ss *RETURN TO MAINLINE 
135: 
. HESERESFSEPEEFAEFSHEFTEGESE SEEEHEEES EL EERE ERESAESAREEEEEPELELSEES 
jATEST 36 DECREMENT FROM CYLINDER 410 TO O & READ HEADERS 
+ THIS TEST y YERIEI MOTION IN THE _NEGATIVE DIRECTION BY 
‘¢ SINGLE RCREMENTAL SEEK 
i ee a ee 
#1. STIMES --D0 1 ITERATION 
aSTACK, SP : ipo rbRe STK PTR 
TST MODTST >SEE IF MODULE TESTING 
BEG 3 -BR IF NO 
Wee l -BYP TESTS 36,40,41 
001370 SS: MOV #410.,FRCYL §= ;FROM CYL | an 
MOV #409. . TOCYL TO CYL - ‘ 


A TT ET A A A Ae ——  ——.  .* ie 5 ee 
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OZREHB.P11 136 DECREMENT FROM CYLINDER 410 TO O 8 READ HEADERS 
bere D445 eS arene 
bi270e 001100 MOV sSTACK, SP _ sRESTORE STK PTR 
oN? 3 050320 ISR PC, SUBCLR ae 
1 ERROR 24 -CERR AFTER SCLR 
l 4 001176 MOV 810$ 
besg eee fe 900020 MOV ther RBC C ) sCYL 8 
=F l MOV RKCSI(RS) ; 
e382 NOV f10, er eee ymcout 
nC : FIND ROY 
6584 0: | ERROR pgyrnoy “NO RDY AFTER SEEK CMD 
&59S He 004374 MOV 8<D.PIP!D.SPIN!D. vo , SBMRe sLOAD SHOULD BE DATA 
= JSR Pc, CKMRE 
| ERROR 203 MSG AD ERROR DURING SEEK CMD 
= fd iitees = Bena 
p30 ERROR 204 *MSG BO ERROR DURING SEEK CMD 
MOY (RS) ;CONTR CLEAR 
fees MOV a] BL Reem -SELECT WORD 1 
6594 JSR pC’ 
BE9S MOV AT REV!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
536 JSR PC 
oe 05 “MSG Al ERROR DURING SEEK CMD 
5599 
6599 PC. CKMR3 sCHECK MR3 
600 ERROR 206 -MSG Bl ERROR DURING SEEK CMD 
b60e JSR PC, RDCYLD 
CMP CYLDIF, #1 
5504 BEG 2$ 
6505 ERROR ele -CYL DIFF INCORRECT DURING SEEK 
a, 2s: MOV 812$, SESCAPE 
658 MOV #2S00., TEMP! § ;SETUP TIMEOUT 
6510 ~ ISR PC. FATT2 sFIND ATTN 
651 ERROR 1 <NO ATTN AFTER SEEK CMD 
cele IT 8CERR, HCS1 
661 BEQ gus 
6614 ERROR 21 -CERR AFTER SEEK CMD 
pPie 64S: 
ei? MOV SCCLR,RKCS1(RS) ;CONTR CLEAR 
ig JSR PC, GSTAT -GET LATEST STATUS 
661 MOV 8<0.0SC'D. SPIN!D. -DroY0. Wy .VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
6520 JSR pC 
bbel ERROR 133 *MSG AO ERROR AFTER SEEK CMD 
JSR CKMR3 sCHECK MR3 
ERROR 134 *MSG BO ERROR AFTER SEEK CMD 
bbb MOV BCCLR, RKCSI(RS) 
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T FROM CYLINDER 410 TO O & READ HEADERS 
000026 
004374 





655: 


66§: 


MOV 


#1, RKMRL (RS) sSELECT WORD 1 
#<0.SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 

PC CKMR2 

135 “MSG Al ERROR AFTER SEEK CMD 

SBMR3 

PC. CKMR3 

136 -MSG B1 ERROR AFTER SEEK CMD 

PC, RDCYLD ‘READ CYL DIFF IN MSG A2 

CYLDIF 

137 “CYL DIFF NOT CLEARED AFTER SEEK CMD 
SCCLR, RKCS1(RS) 

SUNIT.RKCS2(RS) ;DRIVES 

SCLEAR, RKCSI(RS) -DRIVE CLEAR CMD 

Ge ave wr 

re] NO Rov AFTER DRIVE CLEAR CMD 

PC, TSTATN -TEST FOR ATTN 

154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
SCCLR.RKCSI(RS) ;CONTR CLEAR 

PC. GSTAT “GET LATEST STATUS 

#<0'D. SPIN'D. ORDY!D. VV!D. DRA» , SBMR2 -SHOULD BE VALUE 
PC CKMR2 -CHECK MRO 

273 “MSG AO ERROR AFTER DRIVE CLEAR CMD 
Saleen sCHECK MR3 

265 “MSG BO ERROR AFTER DRIVE CLEAR CMD 


RKCS1(RS) 
BL, RAR ) - sSELECT WORD 1 
8<0.SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
_— “MSG Al ERROR AFTER DRIVE CLEAR CMD 





PC, CKMR3 1 
266 - -MSG Bl ERROR AFTER DRIVE CLEAR CMD 
BCCLR, RKCS1(RS) 

wna READ CYL ADDR IN MSC B2 
CyLROD, ocYL ° 
207 sCYL ADOR IN RKMR3 NOT = RKDC 


SES 0124 
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DECREMENT FROM CYLINDER 410 TO 0 & READ HEADERS 


-001100 


oo400 


004336 


000010 


001372 


698: 


67§: 


4: 


6$: 


SLOP} 
MOV 


JSR 
ERROR 


eSTACK, SP ;RESTORE STK PTR 
PC, SUBCLR 

e4 ;CERR AFTER SCLR 
SESCAPE 


TOCYL,RKDC(RS) ;CYL 8 






#RHTAB 

eee RKCS1(RS) -READ HEADER CMD 
My TIMEOUT 

17] ‘NO RDY AFTER READ HEADER CMD 


174 ;CERR AFTER READ HEADER 


CMD 
af 18 } :RORT a a OF TESTS 


RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
rent tea} » CR} se" 

(RS),(RO)+ 33” 
#OLT, RKCS2(RS) 
PC. GSTAT 
173 -DLT AFTER READ HEADER CMD 
MSG18 ‘ABORTING BALANCE OF TESTS 
SeOr “ABORT DRIVE 
RHTAB, TOCYL HECK O (CYL#) ONLY 
9S SR TE Sone 
310 READ CYL WORD HEADER ERROR 
FRCYL 
tocy 
1$ 


SEE fF A ae oe OR 8 IS SET 


ii yt m MERE IF 14 15 SE - 


PC, SUBCLR 
e4 sCERR AFTER SCRL 





SEG 0125 


UNIBUS a DRIVE DIAGNOSTIC PART 1 
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MACY11 27(732) 
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DECREMENT FROM CYLINCER 410 TO 0 & READ HEADER 


001372 000020 


000000 
004400 


901 141312 


001000 i14l27e 





70$: MOV TOCYL,RKDC(RS) ;CYLs 
MOV #SEEK,RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 
MOV 710, TEMP ‘SETUP TIMEOUT 
JSR p Y 4 RDY 
ERROR 1al :NO RDY AFTER SEEK CMD. 
TSO00, TEMP! 
JSR pC FAtTe sFIND ATT 
OR 13e =NO ATTN AFTER SEEK CMD 
IT ,HCS1 
BEQ 71§ 
ERROR = 210 -CERR AFTER SEEK CMD. 
71S: JSR PC, SUBCLR 
ERROR 24 -CERR AFTER SCLR 
INC TOCYL 
CMP TOCYL, #411 sALL CYL DONE? 
BNE 70$ 
JSR PC, SUBCLR 
ERROR 24 -CERR AFTER SCLR 
SESCAPE 
TST LPELG 
JMP JSLPERR -SW 9 WAS SET. 
72$:  JMP JSLPADR -SW 14 OR 8 WAS SET 
10S: 
By 
I , OSWR : ? 
BNE 6$ -YES, RECONDITION DRIVE 
JMP 2$ “RETURN TO MAINLINE 
les: 
INC LPFLG 
BIT #SW9, ISWR :LOOP ON ERR RY and 
J 33 RETURN 8 PAINCINE 
13S: 
:  FEREVELEREEREERELARSERERLEELS EERE EERE EERE LE LEPSE SPREE SE AES BEALE 
jATEST 37 SEEK FROM CYL 0 TO ALL MAJOR CYLINDERS & READ HEADERS 
: THI TES CYL 0 TO HE MAJOR CYLINDERS 8 READS HEADERS. 
it WRGPLEP ECD Teak lelbbed 
* MAJOR CYLINDERS ARE: 1 (DECIMAL) = 1 (OCTAL) 


SEG 0126 


BoAGHE.PLt 3 SEEK FROM CYL 0 





bras 
580s 
6804 
6805 000004 not 
£50 pp, 
&808 
6809 000000 
6810 000001 
6811 
68le 
6813 
Pate 001100 
pale 050320 
62:8 
6819 mie 
peed mata 
boi2 004404 
ca <a 
001372 
7 
5627 ponn7 
cas oirese 
6831 030140 
esi 
bly 004376 
BESS 052565 
6836 
6837 
6238 00000 
poo) 
pe beess 
eaters 004376 
bi 052566 
bess 041726 
eo73 001444 
6850 


E 
| 
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TO ALL Saton evi fhoeks g READ HEADERS 
-% 
: § f 
: g 10 
= i 48 it 
+ bY 100 
.# 128 200 
i* e55 400 
: SHEEEHREREE EERE EEE EEE EEG FLEE EFL E SEALE ERELE SNS EEE RELEASE LESS EEE ES 
+8737: SCOPE 
MOV #1, STIMES ITERATION 
MOV aSTACK, SP ‘RESTORE STK PTR 
MOV #0, FRCYL :SETUP FROM CYL 
MOV 81’ TOCYL ‘SETUP TO CYL 
1S: 
SCOP 
MOV sSTACK, SP -RESTORE STK PTR 
ISR PC, SUBCLR 
OR 24 -CERR AFTER SCLR 
MOV #108, SESCAPE 
MOV ML, TEMPS - SETUP 
MOV TOCYL’ T CYL DIFF 
SUB TEMPS, TEMPY 
MOV TEMP4’ CALDIF t ERROR PRINTOUT 
MOV TOCYL,RKDC(RS) ;GO TO CYL # 
MOV RKCSI(RS) ; 
MOV TEMP] + EF TIMEOUT 
JSR Pe FRDY FIND RDY 
ERROR 1a] <NO-RDY AFTER SEEK CMD 
MOV #<D.PIP!D.SPIN!D. VV!D. DRA> , SBMRe *LOAD SHOULD BE DATA 
JSR PC. CKMRe ; 
ERROR 203 N56 AD ERROR DURING SEEK CMD 
CLR SBMR3 *MR3 SHOULD BE 0 
JSR PC, CKMR3 * CHECK 
ERROR 209 *MSG BO ERROR DURING SEEK CMD 
MOV RKCS1(RS) ;CONTR CLEAR 
HOV (RS) ;SELECT WORD 1 
MOV (0. FWO!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMRE 
ERROR — sMSG Al ERROR DURING SEEK CMD 
Ger ii RMR CK 
ERROR a A EBROR DURING SEEK CMD 
2S: MOV #12$, SESCAPE 
MOV T5000, TEMP! -SETUP TIMEOUT 


SEG 0127 
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OZR6HB.P11 137 SEEK FROM CYL 0 TO ALL MAJOR CYLINDERS & READ HEADERS SEQ 0128 
6851 040116 004737 OS0144 JSR PC. FATT2 -FIND ATT 
122 RROR ie «NO ATTN AFTER SEEK CMD 
ie e380 100000 004336 BIT ac RR,HCS1 
6855 DOL 34 104210 ERROR Hs -CERR AFTER SEEK CMD 
e557 13% Gad s 
04013 012765 100000 000000 NOV #CCLR RKCS1(RS) CONTR C CLEAR cael 
ae, puoisd B39 Bepsup 004374 MOV et. SPIN!D. Bore D.VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
re baie fon is 
162 1041 ERROR {RG AO ERROR AFTER SEEK CMD 
re bain gare, SRE Ht Rtirs sete 
bBbS reer roa -MSG BO E AFTER CMD 
6867 17% Ol o00000 MOV RKCS1(RS) 
bets 1 000026 MOV #1, 1 (RS) -SELECT WORD 1 
686 l2 JSR PC’ GSTA 
6870 16 1720 004374 MOV <0. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
687 JSR PC, CKMRe 
1041 ERROR 136 -MSG Al ERROR AFTER SEEK CMD 
N23 poe CLR SBMR3 F 
JSR PC, CKMR3 y 
875 104136 ERROR 136 -MSG Bl ERROR AFTER SEEK CMD 
6877 
11 PC, RDCYLD sREAD CYL DIFF IN MSG A2 
A ES, OBOE BRINE efi 
6880 1401 BEQ 655 
6881 040256 104137 ERROR 137 sCYL DIFF NOT CLEARED AFTER SEEK CMD 
oas5 040260 65S: 
Peee 040260 012765 100000 oj0000 MOV ,»RKCS1(RS) 
6898 O40266 013765 OOl222 000010 MOV SUNIT.RKCS2(RS) ;DRIVES 
6887 Ol 000005 900000 MOV RKCS1(RS) -DRIVE CLEAR CMD 
688 O13 bo MOV Tl piEnPl 
4 — oer rel ? {NO ROY AFTER DRIVE CLEAR CMD 
bea gee 050016 i PC, TSTATN TEST FOR ATTN 
6893 poses 104154 ERROR. 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
6894 66S: 
eae 040326 012765 100000 000000 aCCLR RKCS1(RS) ;CONTR CLEAR 
6897 O40334 737 050256 JSR PC, GSTAT GET LATEST STATUS 
838 DHO30 e737 010340 004374 HOV 4010. . SPIN!D. DROY? VV!D. DRA , SBMR2 -SHOULD BE VALUE 
6900 ERROR cm ' MSG AO ERROR AFTER DRIVE CLEAR CMD 
B90 004 
6 atthe JSR PC, CKMR3 sCHECK MR 
6903 104265 265 *MSG BO ERROR AFTER DRIVE CLEAR CMD 
1 100000 000000 MOV ¥CCLR, RKCS1(RS) 
Pagar BiSoee 000001 003026 MOV wl,RKMRI(RS)  ;SELECT WORD 1 





SEQ 0129 


Iie 
Pil os? SEEK FROM CYL 0 TO ALL RAJOR CYLENOERS & READ HEADERS 





i 


gvwde 004737 JSR PC, GSTAT 
308 c le 001720 004374 NOV <0. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK» , SBIR 
ra ioser4 om - os ERROR oe -MSG Al ERROR AFTER DRIVE CLEAR CMD 
040426 004737 052566 JSR PC, CKMR3 
13 O40432 104266 266 “MSG Bl ERROR AFTER DRIVE CLEAR CMD 
040434 004737 051210 JSR PC, ROCYLA -READ CYL ADDR IN MSG B2 
O4O44O 023737 O01404 001372 CMP CYLADD, TOCYL 
040446 001401 BEQ 3 
313 O404SO 104207 ERROR 207 sCYL ADDR IN RKMR3 NOT=RKDC 
040452 33: 
o404S2 4104415 SCOP! 
040454 012706 001100 MOV - sSTACK,SP -RESTORE STK PTR 
040460 004737 050320 JSR PC, SUBCLR 
O40464 104024 ERROR 24 -CERR AFTER SCLR 
OYONEE 005037 001176 CLR SESCAPE 
72 013765 001372 000020 MOV TOCYL,RKDC(RS) ;CYL # 
040500 012700 001704 MOV #RHTAB, RO 
O40SDN 12765 000000 MOV #<RDHEAD> . RKCS1(RS) READ HEADER CMO 
fs 013737 001446 O04400 MOV TS0000, TEMP -SETUP TIMEOUT. - 
oes ION = Pe | FROY {NO ROY-AFTER READ HEADER CHD 
040526 100000 004336 BIT #CERR,HCS1 : 
001 BEQ 68S 
tol Free” agcue SEBORT BALANCE OF TESTS 
040544 000137 047164 JMP $eoP “ABORT DRIVE 
a3 O40SS0 D1652¢ 000024 68S: HOV RKDB(RS) , (RO)+ :1;ST WORD FROM SILO TO RHTAB 
BMOSES iEES Bpo0e4 MOV (RS); (RO)+ iS RD WORD 
948 OwOSEY 032765 100000 000010 BIT #OLT, RKCS2(RS) 
001407 BEQ 
137 0s0256 JSR PC. GSTAT 
1041 RROR 173 sDLT AFTER READ HEADER CMD 
104401 060720 YPE MSG18 *ABORTING BALANCE OF TESTS 
40606 000137 047164 oa JMP $e0P SABORT DRIVE 
04061 069737 001704 001372 CHP RHTAB, TOCYL s CHECK WORD O (CYL#) ONLY 
bYObee 104310 ai 310 *READ CYL WORD HEADER ERROR 
040624 104415 SCOP! 
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MACY11 
TO ALL 


4§: 


70S: 


27(7232) 
MAJOR 


Jie 


01-OCT-76 10:34 PAGE 129 


CYLINDERS & READ HEADERS 


aSTACK, SP *RESTORE STK PTR 
PC, SUBCLR 

24 -CERR AFTER SCLR 

#14$. SESCAPE 

FRCYL ,RKDC(RS) RETURN TO CYL # 

FRCYL, CCYL t CURRENT CYL FOR TRUERR ROUTINE 

#SEEK RKCS1(RS) -SEEK CMD 

T10, TEMP PW fo TIMEOUT 

pC ERBY 

13 NO ROY AFTER SEEK CMD 

#<D.PIP!D.SPIN!D’ -W20- .DRA> , SBMRE *LOAD SHOULD BE DATA 
2 ate the AD DURING SEEK CMD 

SBMR3 -MR3 SHOULD BE 0 

PC. CKMRS s CHECK MR3 

204 BO ERROR DURING SEEK CMD 
#CCLR,RKCS1(RS) ;CONTR CLEAR 

al, » RAR (RS) ‘SELECT WORD 1 


#<D.REV!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
— -MSG Al ERROR DURING SEEK CMD 







SBMR3 
PC, CKMR3 sCHECK MR3 
206 -MSG Bl ERROR DURING SEEK CMD 
#16$. SESCAPE 
T5000, TEMP1 sSETUP TIMEOUT 
PC, FATT2 sFIND ATTN 
132 -NO ATTN AFTER SEEK CMD 
aCERR, HCSI 
210 -CERR AFTER SEEK CMD 
SCCLR,RKCSI(RS) ;CONTR CLEAR 
PC. GSTAT T LATEST STATUS 
ab. I. SPIN a: ROY#D. AVtD. DRA>,SBMR2 ;SHOULD BE VALUE 
PC, CKMR2 
133 MSG AO ER ERROR AFTER SEEK CMD 
BE HRS one MR3 
134 :MSG BO ERROR AFTER SEEK CMD 
R.RKCS1(RS) 
81, RK 1(RS) ;SELECT WORD 1 
40.5 1D. CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 
135 :MSG Al ERROR AFTER SEEK CMD 


SEG 0130 


UNTBUS RKOG ORIVE DIAGNOSTIC PART 1 NAC 
DZR6HB. P11 SEEK FROM CYL 0 TO 
7019 041130 004376 
7020 O41134 004737 0525 
7021 O41140 104136 
oo35 
7024 041142 004737 051124 
7025 OulINe 908737 001402 
Oe ONIISe 001401 
041154 104137 
7028 
aN. 041156 71S: 
7031 W115 912765 100909 990000 
7032 041164 O1 001222 00010 
7033 ONIi7e Ole76s 900008 900000 
7034 041200 01 001434 04400 
7035 041206 004737 047632 
703% O4l212 10415 
7037 041214 004737 OSODI6 
7038 O¥lee0 
041222 1041 
704) OHlee4 725: 
1224 01 190000 ojp0000 
4 Oy ee Be 
7044 041236 012737 010340 004374 
7N5 ONleNy OON737 O52504 
ee Tis I oan 
FONG OMISee DONTS? beseee 
7049 O4le62 104265 
7051 O41 1 po0000 
Tes Cum RET IS Sa 
7053 041300 004737 OS0256 
re fies ee Bligh oem 
SOE BMISIE 104 
7057 041320 005037 004376 
7058 041324 004737 052566 
7059 041330 104266 
7060 
7061 
7062 041332 004737 051210 
7063 041336 001404 001370 
1344 001401 
7065 O41346 104243 
7066 
7067 O41 cS: 
41350 1048 
O41 i 001100 
7071 041356 004737 050320 
707e M1362 104024 
7074 041364 005037 001176 





27(732) 01-OCT-76 AO: +34 PAGE 130 
MAJOR CYLINDERS & READ HEADER 
CLR SBMR3 
JSR PC. CKMR3 
ERROR 136 ;MSG Bl ERROR AFTER SEEK CMD 
JSR PC, ROCYLD ‘READ CYL DIFF IN MSG A2 
is ‘is 
ERROR -CYL DIFF NOT CLEARED AFTER SEEK CMD 
MOV #CCLR, RKCS1(RS) 
MOV SUNIT.RKCS2(RS) ;DRIVES 
MOV #CLEAR, RKCS1(RS) sDRIVE CLEAR CMD 
MOV T10, TEMP! 
JSR PC. FRDY -FIND RDY 
ERROR 15] “NO RDY AFTER DRIVE CLEAR CMD 
ISR PC, TSTATN -TEST FOR ATTN 
ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #CCLR,RKCS1(RS) ;CONTR CLEAR 
JSR pc. csta : GET LATEST STATUS : 
MOV #<0!D.SPIN!D. DROY!D. VV!D.DRA> , SBMRe -SHOULD BE VALUE 
JSR PC, CKMRe CK 
ERROR 273 {MSG AD ERROR AFTER DRIVE CLEAR CMD 
CLR SBMR3 
JSR PC, CKMR3 -CHECK MR3 
ERROR 265 -MSG BO ERROR AFTER DRIVE CLEAR CMD 
MOV #CCLR, RKCS1(RS) 
MOV $1,RKMRI(RS) ;SELECT WORD 1 
JSR PC’ GSTAT 
MOV <0. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
JSR PC. CKMR2 
ERROR 274 -MSG Al ERROR AFTER DRIVE CLEAR CMD 
CLR SBMR3 
JSR PC, CKMRS | 
ERROR 266 ;MSG B1 ERROR AFTER DRIVE CLEAR CMD 
JSR PC, RDCYLA sREAD CYL ADDR IN MSG Be 
CHE CYLADD, FRCYL 
ERROR 243 sCYL ADDR IN RKMR3 NOT=RKDC 
1 
Boy #STACK, SP sRESTORE STK PTR 
JSR PC, SUBCLR 
ERROR -CERR AFTER SCLR 
CLR SESCAPE 


SEG 0131 


UNIBUS n'y DRIVE DIAGNOSTIC PART 1 MACY11 27(732) Q1-OCT-76 10:34 PAGE 131 


OZR&HB 137 SEEK FROM CYL 0 TO ALL MAJOR CYLINDERS & READ HEADERS SEG 0132 
i 041370 013765 001370 o00020 MOV FRCYL,RKDC(RS) ;CYL & 

7078 041376 012700 001704 MOV #RHTAB, RO 

7079 130 Ol 000025 oo0000 MOV #<RDHEAD> .RKCSI(RS) “READ HEADER CMD 
7080 O41410 O1 b014%6 004400 MOV TSO000, TEMP1  # ;SETUP TIMEOUT 

7081 041416 904737 O4 JSR PC. FRDY *FIND RDY 

7082 O41422 10417 ERROR 171 -NO RDY AFTER READ HEADER CMD 
7083 041424 100000 004336 BIT #CERR,HCS1 

7084 O41432 001405 BEQ 74§ 

7085 O41434 104174 ERROR 174 -CERR AFTER READ HEADER CMD 
7086 oy OHO TYPE MSG18 ‘ABORT BALANCE OF TESTS 

2087 1 l 164 J $eOP :ABORT DRIVE 

7089 O41446 016520 000024 74$: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
7090 O414S2 016520 o00024 MOV RKDB(RS),(RO)+ ;2’ND WORD 

7091 O41456 016520 o000024 MOV RKDB(RS),(RO)+ :3°RD WORD 

o083 

7094 O41 N62 100000 000010 BIT #DLT, RKCS2(RS) 

7095 041470 O01 BEQ 75§ 

70% 041472 004737 050256 JSR PC. GSTAT 

sya ONtSOR {pNdoR oer iDBORTING BALARCE OF TESTS 
7099 rape hater Bay ar JMP $eop “ABORT DRIVE 

ao 1510 753: 

7102 041510 023737 001704 001370 CMP RHTAB, FRCYL :CHECK WORD O (CYL#) ONLY 
7103 041516 001401 BEQ 73S : BR 

7104 041520 104311 ERROR 311 *READ CYL WORD HEADER ERROR 
710S 041522 733: 

Hi 

7108 O41S22 006337 001372 ASL TOCYL 

7109 041526 023727 001372 901000 CMP TOCYL, #1000 sALL CYL DONE? 

7110 154 001402 BEQ 6$ 

7111 O41 137 037704 JMP 1§ 

7lle 1S42 6$: 

7113 O41S42 004737 052770 JSR PC, SWTST -SEE IF SW 14 OR 8 IS SET 
7114 O41546 000517 BR TST40 ->GO TO NEXT TEST 

7115 ‘RETURN HERE IF SW 14 IS SET OR 
7116 -SW 8 WITH SWR <7:0) APPLY 
2117 041550 8S: 

otis 041550 004737 050320 JSR PC, SUBCLR 

7120 041554 104024 ERROR 24 -CERR AFTER SCRL 

2 O41556 013765 001372 000020 76%: MOV TOCYL,RKDC(RS) ;CYL# 

71e4 O41564 Ol 900017 ooo000 MOV #SEEK,RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 
?ies 41572 01 OO1a 3 004400 HOV 110, TEMP : SETUP TIMEOUT 

718? Bul roa 34 wes ERROR 13] "NO ROY AFTER SEEK CMD. 

7129 O41606 013737 001444 OO44O0 MOV TSO00, TEMP! 


7130 041614 004737 OSO144 JSR PC, FAtT2 sFIND ATTN 


2 22 22 
Go” 
nm De 


SEELEPELELELELELEE LEEE 


daw Ft B20 fs Be hme fs bs Bm fm bas ps Ps Pon DP fH Gs @-' b= p-- p> = 


es 


NEERENERGSRODNORER Roltae 


Mle 


ee SEEK FROM CYL 0 TO ALL MAJOR CYLINDERS & READ HEADERS 


100000 004336 


001362 


177777 © 


137220 


137206 


137160 


137140 


001174 


7738: 


783: 
10S: 


123: 


14S: 


16S: 


132 
#CERR,HCS1 
77$ 

210 

PC, SUBCLR 
e4 


TOCYL 
te a-1 
76$ 


PC, SUBCLR 
24 
SESCAPE 
LPFLG 
78$ 
@SLPERR 
dJSLPADR 
LPFLG 
#SW93, JSWR 
8$ 

es 


LPFLG 
#SW9, ISWR 


sNO ATTN AFTER SEEK CMD 
;CERR AFTER SEEK CMD. 


*CERR AFTER SCLR 
sALL CYL DONE? 


;CERR AFTER SCLR 


:LOOP ON ERROR? 
-YES, RECONDITION DRIVE 
*RETURN TO MAINLINE 


-LOOP ON E 
sYES 
*RETURN TO MAINLINE 


RROR? 
RECONDITION DRIVE 


-LOOP ON ERROR? 
-YES, RECONDITION DRIVE 
“RETURN TO MAINLINE 


ON ERROR? 
RECONDITION DRIVE 
et TO MAINLINE 


. iteeT uD SEEK TO TAL CYLINDERS FRON OE READ lc 
; L 
+ ‘7; °°." guaeasasama ti sseare nuaaamanaaas Raia mime ai 


tétu0: 


DOSEEK: 


MOV 
TST 
3 


#1 cK SP 
eSTACK 


»-DO 1 ITERATION 
sRESTORE STK PTR 


IF MODULE TESTING 


BR IF NO 
SELSE BYPASS TESTS 40 & 41 


SEQ 0133 


UNIBUS RKO6 “4 DIAGNOSTIC PART 1 MACY11 27(732) O1-OCT-76 10:34 PAGE 133 
OZR6HB.P11 T4O 


SEEK TO ALL CYLINDERS FROM 0 & READ HEADERS . SEQ 0134 
7187 
7188 O42034 012737 o000000 001370 MOV #0, FRCYL -SETUP FROM CYL 
7183 042042 012737 000001 001372 MOV #1, TOCYL :SETUP TO CYL 
71 ot 18: 
Stas Busseo 104415 SCOP! 
7133 o4s0e2 912706 001100 MOV #STACK, SP -RESTORE STK PTR 
7195 o42056 004737 050320 JSR pC, SUBCLR 
2136 O42062 104024 ERROR 24 -CERR AFTER SCLR 
7198 O42064 012737 O440S2 001176 MOV #108) SES SESCAPE 
7199 042072 013737 001370 OO44O4 MOV MP3 : SETUP 
7200 O42100 013737 001372 OO04406 MOV TOCYL, TEMPS 3 CYL DIFF 
720 042106 163737 OO44O4 o04406 SUB TEMPS, TEMPY 
rede 042114 013737 OO4406 601400 MOV TEMP4: CALDIF ERROR PRINTOUT 
704 O42122 013765 001372 000020 MOV TOCYL,RKDC(RS) ;GO TO CYL # 
1 1 7 MOV SSFEK ARKCSICRS) 58 KC 

oooe te Bis 533 mate artist MOV iti TEMP] Sait MD IMEOUT 
7208 tat hs 004737 047632 JSR PC. FRDY -FIND RDY 
7209 O42150 104131 ERROR 1a} “NO RDY AFTER SEEK CMD 
7210 O421S2 012727 030140 004374 MOV #<D.PIP!D. SPIN!D. VV!D. DRA> , SBMRe sLOAD SHOULD BE DATA 
fell 042160 004737 OS2S04 JSR PC, CKMRe 

l2 O42164 104203 ERROR 203 MSG AD ERROR DURING SEEK CMD 
7213 Ove 166 005037 004376 CLR SBMR3 SHOULD BE 0 
7214 O42172 004737 052566 JSR PC. CKMR3 CHECK MR 
zels 042176 104204 ERROR 204 -MSG BO ERROR DURING SEEK CMD 
7217 O42200 O01 100000 op0000 MOV #CCLR,RKCS1(RS) ;CONTR CLEAR 
7218 2206 O01 000001 000026 MOV #1, RKAR ( (RS) :SELECT WORD 1 
7219 O42214 004737 OS0256 JSR pC 
7220 012737 003720 004374 MOV a FWD!'D.SPOK!D. CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 
7221 O4eee6 004737 OS2504 JSR PC, CKMR2 
7e22 O4eese 104205 ERROR 205 -MSG Al ERROR DURING SEEK CMD 
72e3 O42234 005037 004376 CLR SBMR3 
7224 O4e240 004737 052566 JSR PC CKMR3 -CHECK MR3 
7ee6 042244 104206 ERROR 206 *MSG B1 ERROR DURING SEEK CMD 
7227 O422% 012737 O44072 001176 2S: MOV #12$, SESCAPE 
rece 042254 013737 O01444 O04400 MOV T5000, TEMP! sSETUP TIMEOUT 
7230 O04 0S0144 JSR PC, FATT2 -FIND ATTN 
7231 OY 104132 ERROR 132 -NO ATTN AFTER SEEK CMD 
7230 042270 100000 004336 BIT #CERR,HCS1 

042276 001401 BEQ 64S 

7234 042300 i04210 ERROR 210 sCERR AFTER SEEK CMD 

o> 042302 o4S: 

7237 of 012765 100000 000000 MOV ¥CCLR,RKCSI(RS) ;CONTR CLEAR 

7238 St OS0256 JSR PC, GSTAT -GET LATEST STATUS 

7633 OHe3 4 0127 050340 004374 MOV #<O.0SC!D. SPIN!D. DRDY!D. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 

? JSR PC, CKMRe : 

7241 O42326 104133 ERROR 133 :MSG AO ERROR AFTER SEEK CMD 

7e42 042330 005037 004376 CLR SBMR3 
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C _PRRT 1 
K TO ALL CYLINDER 


po0dee 


004374 





001372 


MACY 


65§: 


Ff 








7(732) Cl-OCT-76 10:34 PAGE 134 
OM 0 & READ HEADERS SEG 0125 
JSR PC, CKMR3 ‘CHECK MRS | 

ERR 134 *MSG BO ERROR AFTER SEEK CMD 

MOV BCCLR, RKCSI(RS) 

MOV #1, RKARI CRS -SELECT WORD 1 

JSR PC’ GSTAT 

MOV <6. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMRE 

JSR PC. CKMRe 

ERROR 135 ;MSG Al ERROR AFTER SEEK CMD 

ULR Bene 

SR ¢. CKMR3 

ERROR 136 -MSG Bl ERROR AFTER SEEK CMD 

J PC, ROCYLD sREAD CYL DIFF IN MSG Ae 

TST cyLD 
BEQ 65S 
ERROR 137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
MOV 
MOV DRIVES 
HOV -DRIVE CLEAR CMD 
JSR zFIND ROY : 
ERROR iS] -NO ROY AFTER ORIVE CLEAR CMD 
ISR PC, TSTATN *TEST FOR ATTN 
ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV BCCLR,RKCSI(RS) ;CONTR CLEAR 
JSR PC. GSTAT -GET LATEST STATUS 
MOV 4.020. SPIN!D. ROY .VV!D. DRA , SBMR2 -SHOULD 3E VALUE 
JSR PC sCHECK MR2 

273 -MSG AO ERROR AFTER DRIVE CLEAR CMD 







;CHECK MR3 
;MSG BO ERROR AFTER DRIVE CLEAR CMD 


BL RRA CR) ;SELECT WORD 1 


8 SPOK!D. CART!D.DOOR!D. BRHM!D. TFOK> , SBNRE 
sor “MSG Al ERROR AFTER DRIVE CLEAR CMD 


;MSG 81 ERROR AFTER ORIVE CLEAR CMD 


PC 


ROCYLA 
YLADD, TOCYL 


267 


;READ CYL ADDR IN MSG Be 


o> 


;CYL ADDR IN RKMR3 NOT=RKDC 








_—|——— se + ee ee _— o- ° 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 MACYLI 27(732) O1-0CT-76 10:34 PAGE 135 
DZRSHB. P11 THO SEEK TO ALL CYLINDERS FROM 0 & READ HEADERS 
7533 042616 33: 
Duce] LO4HIS SCOP! 
12706 001100 MOV eSTACK, SP ‘RESTORE STK PTR 
7304 050320 JSR PC, SUBCLR 
Pas BiseSo roMos4 ERROR 24 -CERR AFTER SCLR 
042632 11 CLR SESCAPE 
2308 042636 eae Sot a78 000020 NOV TOCYL,RKDC(RS) ;CYL 8 
7310 
731 poe 1 MOV sRHTAB. RO 
732 l 000000 MOV 8<RDHEAD> .RKCSI(RS) “READ HEADER CMD 
731 l 001446 OO4400 MOV TSO000, TEMP! gSETUP TT TIMEOUT 
ae hen te Bion Te" FAOTRONPAFTER eso HESCER cro 
736 sa3797 100000 004336 SIT #CERR, HCS 
731 001405 BEQ 68S 
7318 104174 ERROR 174 -CERR AFTER HEADER CMD 
7319 1 MSG18 “ABORT BALANCE OF TESTS 
7320 042710 000137 047164 IMP SeoP ‘ABORT DRIVE 
4 016520 683: MOV (RS),(RO)+ ;1°ST FROM SILO TO RHTAB 
rest aris SLD ee Sy BBS BS HL 
7304 16520 O000e4 MOV RKDB(RS);(RO)+ :3°RD WORD 
5358 032765 100000 000010 BIT 8OLT, RKCS2(RS) 
| 7230p 001 BEQ 695 
7329 904 os02es6 JSR PC. GSTAT 
| 7330 O4e744 104173 ERROR 173 sDLT AFTER READ HEADER CHD 
7331 O4274% 104401 060720 TYPE MSG18 “ABORTING BALANCE OF TESTS 
73% bic7Se 000137 047164 stay JMP $e 0p “ABORT DRIVE 
eee 2756 023737 001704 6001372 CMP RHTAB, TOCYL “CHECK WORD O (CYL#) ONLY 
| 7336 001401 BEQ 675 -BR IF SAME 
| 7s 104310 on: ERROR 310 *READ CYL WORD HEADER ERROR 
7240 
| 7341 042770 104415 SCOP! 
| 042772 012706 001100 MOVs aSTACK, SP sRESTORE STK PTR 
| 7Mq JSR PC, SUBCLR 
: 730 PSone eos ERROR 24 -CERR AFTER SCLR 
| 7347 043004 012737 12 1176 MOV $, SESCAPE 
| 7348 04301 13765 001 MOV FAcit. RKDC(RS) ;RETURN TO CYL # 
| 305 1 001370 001 MOY FRCYL,CCYL ‘CURRENT CYL FOR TRUERR ROUTINE 
| 1 012765 000017 MOV RKCSI(RS) ; 
| Baba 013737 00 14 BON MOV per £41 TIMEOUT 
| 4304 O04 Ou7b 32 JSR -FIND RDY 
| Soe 804134 ERROR -NO RDY AFTER SEEK CMD 
| 
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004374 


MACY1L1 27(732) 
SEEK TO ALL CYLINDERS FROM 9 8 READ HEADERS 








01-OCT-76 10:34 PAGE 136 


e<D.PIP!D.SPIN!D.VV!D.ORA> , SEMRe 
CKMRe ; CHEC 


; CHECK 
203 :MSG AC ERROR DURING SEEK CMD 
SBMR3 *MR3 SHOULD BE 0 
PC CKMR3 ‘CHECK MR 
204 -MSG BO ERROR DURING SEEK CMD 


SCCLR,RKCSI(RS) ;CONTR CLEAR 
#1, RKAR (RS)  ;SELECT WORD 1 


Q 

8<.REV!D. SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 

PC. CKMRe 

208 -MSG Al ERROR DURING SEEK CMD 

Be ReMRS sCHECK MR3 

206 *MSG B1 ERROR DURING SEEK CMD 

816$, SESCAPE 
TEMP -SETUP TIMEOUT 

PC. FATT2 -FIND ATTN 

130 “NO ATTN AFTER SEEK CMD 

8CERR, HCS1 

21 -CERR AFTER SEEK CMD 


SCCLR,RKCSI(RS) ;CONTR CLEAR 
GstaT -GET LATEST STATUS 

8<6.0SC'D. SPIN!D. DROY!'D. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 

— “MSG AO ERROR AFTER SEEK CMD 

-CHECK MR3 

-MSG BO ERROR AFTER SEEK CMD 

sSELECT WORD 1 

#<b. SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMR2 


;MSG Al ERROR AFTER SEEK CMD - 


;MSG Bl ERROR AFTER SEEK CMD 





;READ CYL DIFF IN MSG Ae 


C 
71§ 
137 sCYL DIFF NOT CLEARED AFTER SEEK CMO 


eCCLR,RKCS1(RS) 


;LOAD SHOULD BE DATA 


UNIBUS RKOG ORI 
Pll 


Basse O1z7e8 
7413 O43344 Ol : 





PRERLRRORDOMB SESE EGR EE 
SREP? ? 
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40 


MACY11 27(732) 


SEEK TO ALL CYLINDERS FROM 0 
e 





004400 


004374 


001370 


723: 


Ss: 


01-OCT-76 10:34 PAGE 137 
ADERS 


#<O!D.SPIN!D. ROY 
CKMR2 






-MSG AO fron AFTER ORIVE CLEAR CMD 


& READ HE 
SUNIT,RKCS2(RS) ; DRIVES 
BCLEAR, RKCS1 (RS) ‘DRIVE CLEAR CMD 
110, TERPL -F 
re NO ROTA AFTER DRIVE CLEAR CMD 
PC TSTATN ‘TEST FOR ATTN 
154 -ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
@CCLR,RKCS1(RS) ;CONTR CLEAR 
PC. GStaT T yates! sTaqTus 


;SHOULD BE VALUE 


F CK MR3 
BO ERROR AFTER ORIVE CLEAR CMD 


;SELECT WORD 1 


?D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 


;MSG Al ERROR AFTER DRIVE CLEAR CMD 


;MSG Bl ERROR AFTER DRIVE CLEAR CMD 


sREAD CYL 


sCYL ADDR 


ADOR IN MSG B2 


IN RKMRS NOT=RKDC 


aSTACK, SP sRESTORE STK PTR 
PC, SUBCLR 
-CERR AFTER SCLR 

FRCYL,RKDC(RS) ;CYL # 
#RHTAB, RO 
ry: > RKCSI(RS) READ MEADER CMD 
feonoh ee -SETUP TINEOLS 

Y *FIND ROY 
17] at <NO ROY AFTER READ HEADER CMD 
mu , 
sak - sCERR AFTER READ HEADER CMD 
$eoP ABORT OR t BRIVE. 


SEG 0138 


_ ones ewe ow ae 


UNIBUS RKO6 
OZREHB. P11 


Pie pusbie uesen 
7470 O4362e2 016520 





eer ee LEEEEEEOT ELE 


ORIVE DIAGNOSTIC PART 1 
40 SEEK 


000024 
000024 
000024 


000010 


001370 


eseae@ere 





177777 


MACY11 27(732) 
TO ALL CYLINDERS FROM O & READ HEADERS 


74S: 


7S$: 


733: 


76S: 


01-OCT-76 


RKDB(RS), (RO)+ 
RKDB(RS), (RO)+ 
RKDB(RS), (RO)+ 


#DLT, RKCS2(RS) 
738 


PC GSTAT 
173 
MSG18 


$eoP 


RHTAB, FRCYL 
73$ 


dil 


TOCYL 


TOCYL, #411. 
6$ 


1§ 


PC, SWTST 


TSTt41 


PC, SUBCLR 
e4 
TOCYL, RKDC (RS) 


PCPA 


Tl 
131 


TSOO0, TEMP 
PC.FATT2 - 


\ 
77$ 
210 


10:34 PAGE 138 


33 


;DLT AFTER READ HEADER CMD 
;ABORTING BALANCE OF TESTS 
;ABORT DRIVE 


s CHECK WORD O (CYL#) ONLY 
-READ CYL WORD HEADER ERROR 


sALL CYL DONE? 


sCERR AFTER SCRL 
sCYL# 


EE mot RECONDITION DRIVE. 


{NO ROY AFTER SEEK CMD. 


;FIND ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR 


sALL CYL DONE? 


SEO 0139 


G13 
BUAGHG.PLL TMD SEEK TO ALL CYLINOERS FROM O° REAO HEADERS ~ $e0 0140 





7523 ode? 004737 050320 JSR PC, SUBCLR 
geet 104024 ERROR 24 -CERR AFTER SCLR 
7526 O44030 005037 001176 CLR SESCAPE 
7527 iain mae 001430 TST LPELG 
bess et 135042 iis Se PERR -SW 9 WAS SET. 
750 O44046 000177 135034 78S:  JMP JSLPADR -Sii 14 OR B WAS SET 
10S: 
5238 Dio8s 005237 001430 INC _LPFLG 
7534 036777 001000 135054 BIT #SW9, ISWR sLOOP ON ERROR? ba 
733 Spee Spi 042246 an 3 RETURN FO MAINLINE 
044072 les: 
7538 O44072 005237 001430 INC LPFLG 
7333 puN76 001000 135034 BIT #SW9, ISWR “LOOP ON ERROR? 
104 Bai 503 ; ‘VES RECONDIT ION DRIVE 
754 Ov 106 000137 O42616 on IMP 3$ “RETURN TO MAINLINE 
rene eis 905237 001430 " we LPFLG 
7544 116 001000 135014 BIT #SW9, OSHR : LOOP ON ERROR? pe 
Pete Rie Spars 043144 sale 3 4§ RETURN 5 MA INLINE 
7548 132 005237 001430 "INC LPFLG 
7549 044136 032777 OO1000 134774 BIT #SW9, ISWR “LOOP ON ERROR? 
7550 O44144 001262 BNE 8$ ES RECONDITION DRIVE 
7s 044146 000137 043514 JMP 53 RETURN TO MAINLINE 
:  FFERESEEESEEEELE FELL ELER FERS ES SEERELSEEESEEREFEERREREG EEE ELS ERE 
7554 TEST 4] SEEK TO ALL CYLINDERS FROM CYL 410 & 
7255S ce BEES RREERESEERE REESE SEES EHEAE EERE EFEALERFARERAE ERT EEE ELE HEE ESE 
seep oie SRE 1 001174 tT4i: ave #1. STIMES 1 ITERATION 
7358 O44162 BS Bot te MOV aSTACK, SP "peerdee STK PTR 
7560 
756 OHH 166 004737 JSR PC, SUBCLR 
O44172 1 ERROR 24 -CERR AFTER SCLR 
044174 012765 000632 000020 MOV #410.,RKDC(RS) ;QUICK SEEK TO CYL 410 
1 000017 990000 MOV @SEEK,RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 
PuuSI& OONTS? DN7ER mw | Oe sae iuP Tineout 
7a 1 13 ERROR 13] <NO RDY AFTER SEEK CMD. 
757 1 444 OO44O0 MOV TS000 1 
rere Bhs 144 ISR pC pate. FIND ATTN 
1041 132 NO TTN AFTER SEEK CMD 
7574 032737 100000 004336 BIT ac ,HCS1 
rere pase 104210 ERROR 21 sCERR AFTER SEEK CMD. 
7578 oO442S52 004737 050320 BYg JSR PC, SUBCLR 


SERERR EARS ORRE ssissinigesiaeimetesptaeanaucgieteinatec 


O442S6 


Gavsee 
o44e74 
ONE7e 


044302 
044306 


r+: 


S00 GUESS 8 EMU CEs 3 i 


104024 
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01-OCT-76 10:34 PAGE 140 
SEEK TO ALL CYLINDERS FROM CYL 410 8 READ HEADERS 


24 


;CERR AFTER SCLR 


408.;Tocre SETUP Tov 


eSTACK, SP 


GIO 









“~ 
© 









a 


Oe 





;NO_ ROY 
.PIP!D. SPIN!D. VV!D.DRA> , SBMR2 
ekiRe 9, 


: 


ze 


sRESTORE STK PTR 


SERROR PRINTOUT 
:G0 TO CYL # 


;SEEK CMD 
SETUP TIMEOUT 


sFIND RDY 
AFTER SEEK CMD 


iNSG AO FRR 0 ER ERROR so SEEK CMD 


CHECK MRO MR3 
MSG BO ERROR DURING SEEK CMD 


oe 


;CONTR CLEAR 

;SELECT WORD 1 

. SPOK?D. CART!D. DOOR!D.BRHM!D. TFOK> , SBMR2 
;MSG Al ERROR DURING SEEK CMD 


PC, CKNRS 6 CK MR3 
B1 ERROR DURING SEEK CMD 
812, SESCAPE 
T5000, TEMP1 sSETUP TIMEOUT 
PC. FATT2 sFIND ATTN 
1 "NO ATTN AFTER SEEK CMD 
ace ,HCS1 
210 -CERR AFTER SEEK CMD 


;CONTR CLEAR 

;GET LATEST STATUS 

1D. SPIN!D. DROY!D. VV!D.DRA>, SBMRe ;SHOULD BE VALUE 
;CHECK MRe 


;LOAD SHOULD BE DATA 


SEO 0141 


DERGHB.Pi] PHL SEEK TO'ALL CYLINDERS FROM CYL 410 & READ ‘Bie a seo 0142 






7635 EE ERROR 133 “MSG AD ERROR AFTER SEEK CMD 
CLR BMR3 
JSR PC, CKMR3 ‘CHECK MR3 
ERROR 134 *MSG BO ERROR AFTER SEEK CMO 
7640 000000 MOV aCCLR RKCS1(RS) 
oH 000026 MOV RKMRI(RS) ;SELECT WORD 1 
76 JSR Be’ T 
7643 004374 MOV #<6.SPOK!D. CART!D. DOOR!D. BRHM!D. TFOK> , SBMRe 
7644 ? JSR CKMRE 
oH ERROR :MSG Al ERROR AFTER SEEK CMD 
76 LR 3 
7647 004737 OS2S66 JSR PC, CKMR3 
7oHe ERROR 136 -MSG Bl ERROR AFTER SEEK CMD 
7650 
7651 JSR PC, ROCYLD -READ CYL DIFF IN MSG Ae 
7652 TST cYLDIF 
7653 BEQ 66S 
cb54 ERROR 137 -CYL DIFF NOT CLEARED AFTER SEEK CMD 
7656 66S: 
7657 
7658 000000 MOV LR, RKCS1(RS) 
7659 000010 MOV SUNIT.RKCS2(RS) ;DRIVES 
7660 000000 MOV RKCS1(RS) ‘DRIVE CLEAR CMD 
7651 004400 MOV T10. TEMP! 
762 JSR PC. FRDY -FIND RDY 
7663 ERROR is! “NO RDY AFTER DRIVE CLEAR CMD 
7664 JSR TSTATN :TEST FOR ATTN 
7665 BR 676 
bbb are ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
7668 
7669 000000 MOV #CCLR,RKCSI(RS) ;CONTR CLEAR b 
7670 JSR PC GSTAT <GET LATEST STATUS 7 
7671 004374 MOV #<0!D.SPIN!D. DROY?D. VV!D. DRA>, SBMR2 sSHOULD BE VALUE , 
7672 JSR PC, CKMRe 
73 ERROR 75 MSG AO ERROR AFTER DRIVE CLEAR CMD 
74 CLR 
7675 JSR PC, CKMR3 -CHECK MR3 
767 ERROR 265 *MSG BO ERROR AFTER DRIVE CLEAR CMD 
18 ABE IREARICR™ seer sono 1 
7680 JSR 
004374 MOV pecs 6<b, SPOK!0. -CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 
JSR 
ERROR er :MSG Al ERROR AFTER DRIVE CLEAR CMD 
JSR PC, CKMR 
ERROR 266 sMSG Bl ERROR AFTER DRIVE CLEAR CMD 
JSR PC, RDCYLA sREAD CYL ADDR IN MSG Be 


ROC 
001372 CMP CYLADD, TOCYL 
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C _PART 1 
K TO ALL CYLI 


000000 
004400 


000010 


001372 


33: 


69S: 


70S: 


BEQ 
ERROR 


SCOP 1 
MOV 


J13 
EERE, TU T'TEDB Ble POE 2 


3$ 
207 sCYL ADDR IN RKMR3 NOT=RKDC 
#STACK, SP ‘RESTORE STK PTR 
PC, SUBCLR 
24 -CERR AFTER SCLR 
SESCAPE 
TOCYL,RKDC(RS) ;CYL # 
B<ROHEAD> RKCS1(RS) -READ HEADER CMD 
TEMP 1 ; SETUP TIMEOUT 
pe SOP Y 
171 NO RDY AFTER READ HEADER CMD 
ACER, HCS1 
174 -CERR AFTER READ HEADER CMD 
MSG18 ‘ABORT BALANCE OF TESTS 
$eOP “ABORT DRIVE 
RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
RKDB(RS),(RO)+ :2’ND WORD 
RKDB(RS),(RO)+ :3°RD WORD 
#DLT, RKCS2(RS) 
PC. GSTAT 
‘DLT AFTER READ HEADER CMD 
MSG18 ‘ABORTING BALANCE OF TESTS 
$EOP ‘ABORT DRIVE 
RHTAB, TOCYL sCHECK WORD O (CYL#) ONLY 
68S “BR IF SAME 
310 "READ CYL WORD HEADER ERROR 
#STACK, SP sRESTORE STK PTR 
PC, SUBCLR 
24’ -CERR AFTER SCLR 
FRcYt RROC(RS) RETURN TO CYL # 
EREYL’ COVE °C NT CYL FOR TRUERR ROUTINE 


¥SEEK,RKCS1(RS) 
T10, TEMP 


»SEEK CMD 
*SETUP TIMEOUT 


SES 0143 


Kia 
BURG Age ORG PAORTIE PART RENNER O-FPETS dl POE 1 


aay 
a 


AWA 


04S27e 


045206 


045310 005037 


045314 





moaeees 


2 
e 


aS Gale Gee & | 


ee 


| 


047632 
030140 
OS2S04 


os2a66 


004374 


4S: 


71$: 


723: 


JSR 


PC .FROY sFIND RDY 
;NO ROY AFTER SEEK CMD 
Bera o ae oe. Ree 


203 -MSG AO ERROR DURING SEEK CMD 
SBMR3 *MR3 SHOULD BE 0 

PC CKMR3 -CHECK MR 

204 -MSC BO ERROR DURING SEEK CMD 
#CCLR,RKCS1(RS) ;CONTR CLEAR 

#1,RKMRI(RS)  ;SELECT WORD 1 

PC’ GSTAT 

#<0.FWD!D. SPOK!D. CART!D. DOOR! D. BRHM!D. TFOK> , SBMR2 
PC, CKMR2 

206 -MSG Al ERROR DURING SEEK CMD 
; : a MR3 sCHECK MR 

206 -MSG B1 ERROR DURING SEEK CMD 
#16$, SESCAPE 

T5000, TEMP1 -SETUP TIMEOUT 

PC. FATT2 sFIND ATTN 

132 -NO ATTN AFTER SEEK CMD 
aCERR,HCS1 

210 -CERR AFTER SEEK CMD 


#CCLR,RKCS1(RS) ;CONTR CLEAR 


PC. GSTAT -GET LATEST STATUS 
#<O.0SC'D. SPIN!D.DROY'D. VV!D.DRA>,SBMR2 ;SHOULD BE VALUE 
rsh" om -MSG AO ERROR AFTER SEEK CMD 
Be CMR -CHECK MR3 

134 *MSG BO ERROR AFTER SEEK CMD 
#CCLR, RKCS1(RS) 

81, RKARL CRS) sSELECT WORD 1 
#<6.SPOK!D.CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
PC, CKMRe 

136 sMSG Al ERROR AFTER SEEK CMD 
SBMR3 

PC, CKMR3 

136 -MSG Bl ERROR AFTER SEEK CMD 
PC, RDCYLD sREAD CYL DIFF IN MSG A2 


re 
= 
vy 


= ICD 
Ne 


;CYL DIFF NOT CLEARED AFTER SEEK CMD 


;LOAD SHOULD BE DATA 


SEO 0144 


UM 


“wv 
~ 


1 


an GS 


eee SO ee 


ge 


RKO& sane tama) PART 1 


000000 
000010 
000000 
004400 


004374 


001370 


004336 


' 
i 
i 
‘ 
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733: 


S$: 
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10 & READ HEADERS SEQ 0145 
#CCLR, RKCS1(RS) 
T,RKCS2(RS) ; DRIVES 
BCLEAR, RKCS1(RS) -DRIVE CLEAR CMD 
T10, TEMP 
PC. FRDY -FIND RDY 
15] :NO RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN ‘TEST FOR ATTN 
154 -ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#CCLR,RKCSI(RS) ;CONTR CLEAR 
PC. GStAT -GET LATEST STATUS 
#(0'D. SPIN!D.DRDY!D. VV!D.DRA> , SBMR2 :SHOULD BE VALUE 
PC, CKMRe ; CHECK 
ers -MSG AO ERROR AFTER DRIVE CLEAR CMD 
Be RRNRS sCHECK MR3 
265 “MSG BO ERROR AFTER DRIVE CLEAR CMD 
#CCLR, RKCS1(RS) 
#1,RKMRI(RS) ;SELECT WORD 1 
PC’ GSTAT 
#<0.SPOK!D.CART!D.DOOR!D. BRHM!D. TFOK> , SBMRe 
PC, CKMR2 
er -MSG Al ERROR AFTER DRIVE CLEAR CMD 
Be f MRS 
266 sMSG Bl ERROR AFTER DRIVE CLEAR CMD 
PC, RDCYLA sREAD CYL ADDR IN MSG B2 
CYLADD, FRCYL 
243 sCYL ADDR IN RKMR3 NOT=RKDC 
8STACK, SP sRESTORE STK PTR 
PC, SUBCLR 
24 sCERR AFTER SCLR 
SESCAPE 
FRCYL,RKDC(RS) ;CYL # 
#RHTAB, RO 
#<RDHEAD> . RKCS1(RS) *READ HEADER CMD 
T TEMP]  ;SETUP TIMEOUT | 
PC. FRDY : FIND 
17] -NO RDY AFTER READ HEADER CMD 
SCERR, HCS1 
174 :CERR AFTER READ HEADER CMD 


wa we 


gs $s bee Res — 


FROGTER FREE & 


RENE PE 


PRR RRC ee Renee ett UL tit RERER RRR 
: 


BSBB2 
£anur-O 


See ee em —— ee 7 


C PART 1 MACYLI1 e7(7ae) Ol-OCT-7 
"SEEK TO ALL CYLINDERS FROM CYL 410 & READ HEAD 
060720 TYPE MSG18 
047164 JMP $e OP 
900024 75$: MOV RKDB(RS), (RO)+ 
oo0024 MOV RKDB(RS), (RO)+ 
000024 MOV RKDB(R5), (RO)+ 
100000 000010 BIT #OLT, RKCS2(RS) 
BEQ 76$ 
oso256 JSR PC GSTAT 
RROR 173 
060720 YPE i G18 
047164 MP 
768: 
001704 001370 CMP RHTAB, FRCYL 
BEQ 7US 
ERROR 311 
74S: 
1372 DEC TOCYL 
001372 177777 CMP TOCYL, #-1 
BEQ 6$ 
044274 # JMP 1$ 
052770 JSR PC, SWTST 
BR TSt¥2 
8$: 
050320 JSR PC, SUBCLR 
ERROR 24 
001372 cO0020 77%: ## MOV TOCYL , RKDC(RS) 
000017 000000 MOV #SEEK.RKCS1(RS) 
bola 004400 MOV TiO, T NPI 
JSR PCF 
ERROR ia! 
001444 OO4400 MOV TSOOO, TEMP 
050144 JSR pC FAtT2 
100000 004336 BIT #CERR,HCS1 
BEQ 78S 
ERROR 210 
050320 783: JSR PC, SUBCLR 
ERROR 24 
001372 INC TOCYL 
001372 000633 CMP TOCYL, #411. 
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ERS 


sABORT BALANCE OF TESTS 
ABORT DRIVE 


’ST WORD FROM SILO TO RHTAB 
’ND WORD 
is. RD WORD 


i TING. READ HEADER Bete 
peda” _ OF TEST 


» CHECK WORD 0 (CYL#) ONLY 
“READ CYL WORD HEADER ERROR 


sALL CYL DONE? 


;SEE IF SW 14 OR 8 IS SET 
::GO TO NEXT TEST 

SRETURN HERE IF SW 14 IS SET OR 
-SW 8 WITH SWR <7:0) APPLY 


*CERR AFTER SCRL 
-CYL# 


;SEEK CMD TO RECONDITION DRIVE. 
iP at TIMEOUT 


sNO RDY AFTER SEEK CMD. 


;FIND ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


sCERR AFTER SCLR 


sALL CYL DONE? 


SEG 0146 


3% 


i 


l 


7917 
7918 


6 
ry #] 


RULE ESS Racers is neisytci i pastas 


i 


raed 
7956 
7957 
rae8 
7960 
7961 
rae 
7964 
7aee 
7968 
7969 
7970 


: 


G Sriemaiseereens & 





TY 
001340 


o00004 
Ole737 00000 


012706 


004737 
104024 


012765 
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« 32) O1-0CT-76 10:34 PAGE 146 


SEEK TO ALL CYLINDERS ‘nF Op CYL 410 & READ HEADERS 


132630 


132610 


132550 


001174 


798: 
10$: 


1e$: 


14S: 


16S: 


CYLINV: 


if 


eoyeegengregregrerrenremrenrs 


BNE 77$ 

PC, SUBCLR 
CLR SESCAPE 
TST LPFLG 


JMP dSL 
JM JSLPADR 


_ dSWR 


LPFLG 
#SW9, JSWR 


3$ 


#SW9, JSWR 
4§ 


LPFLG 
#SW3, ISWR 


GAAS BAIA BAIA BAGS 


sCERR AFTER SCLR 


; SW 
;SW 14 OR 8 WAS SET 


sLOOP ON ERROR? 
YES, RECONDITION DRIVE 
PPETURN TO MAINLIN 


sLOOP ON ERROR? 
‘YES RECONDITION DRIVE 
*RETURN TO 


ites. RECONDITION DRIVE 
‘RETURN TO MA 


Bonk RECON Ln nti 


iTest'42 SEEK TO ALL KEY INVALIO CYLINOERS 


TO ALL KEY INVALID CYLINDERS 
THIS TEST VERIFIES THAT "INV ADDR’ & ’SEEK INCOMPLETE’ IS 


EYLINOER 1S SPECIFIED IN 


NOT MOVE OR UNLOAD IF AN ILLEGAL 
A SEEK. 


INVALID CYLINDERS ARE 411 THRU 511 (10) IE. 633 THRU 777 (8) 
THIS TEST CHECKS KEY INVALID CYLINDERS 411,412,416,448 & 480 


FOR A FULL LOGIC TEST 


ON RN a 


tST42 


#1, STIMES 
MOV eSTACK, SP 


JSR PC, SUBCLR 
e4 


MOV #SEEK,RKCS1(RS) 


N13 
OZR6EHB.P11 
7916 
JSR , 
e4 ; 
Deseo 908737 
Q a5 
PERR 3 WAS SET. 
MP 
LPFLG 
peer’ 00 a3, 
000137 es INE 
032777 001000 : 
8$ 
NLINE 
LPFLG 
032777 001000 as, ON ERROR? 
1 NLINE 
032777 001000 es , 


1 ITERATION 


‘RESTORE STK PTR 


CER AFTER SCLR 
;SEEK CMD TO RECONDITION DRIVE. 


Se SS ee oe §“— =< 8§ = § == =| «<——o O e -eeee © 6 (eee 


— — *— 2 


a ee iy, le le a a tel = 


—_- -— —_— o— .« 
, 


UNT 
, 


oe 
ae 


SADR eeeeteer CCN Ter ERT nn er Le wc Se Ree PRNeee 


motel 


s 


eS hee 





¢ 


Mut. cor 
tt 


' 
. 


SETSEEEEES GERIEEY 





z 
i 


as © 





013737 


164131 


001434 
047632 
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004409 


004400 
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64$: 


1$: 





27( 732) 


= 
Cc 
“x 


Ze3gue BS 
g 


Co 36 3 
gS § 


Oo 


OP 


a3 Se 


seess 


CsfTit4 
aa 


m3 





w 
¢ 
“ 
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T10. TEMP! : SETUP TIMEOUT 
° FROY FIND ROY 
13] NO Y AFTER SEEK CMO, 
T5000, TEMP! 
pe FatT2 FIN ATTN 
13 NO ATTN AFTER SEEK CMD 
aCERR, HCSI 
21 -CERR AFTER SEEK CMD. 
PC, SUBCLR | 
-CERR AFTER SCLR 
RO 
FRCYL -FROM CYL O 
sSTACK, SP -RESTORE STK PTR 
PC, SUBCLR 
-CERR AFTER SCLR 
INVCYL(RO). TOCYL -GET INVALID CYL ADOR 
TOCYL, CALDIF 
TOCYL. RKDC (RS) 
RKCSI(RS) ; SEF CH 
, TEMP UP 100US TIMEOUT 
PC’ FROY “FIND RDY 
13] *NO RDY AFTER SEEK CMD 
PC. TSTATN 
245 -NO ATTN AFTER SEEK TO INV CYL 
#0. IDAE, HMR3 


;IDAE NOT SET AFTER SEEK TO INVALID ADOR 










;FLT NOT SET AFTER SEEK TO INV ADOR 
;PIP SET AFTER SEEK TO INV ADOR 
;DSC NOT SET AFTER SEEK TO INV ADDR 


Y!0. ey30, ORA> , SBMR2 
ReSt OF Re SEEK TO INV ADDR 


MRS 
AFT SEEK TO INV ADOR 


SES 0148 
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OZREHB.P11 THe SEEK TO @LL KEY INVALID CYLINDERS SEO 0149 
004737 050256 JSR PC, GSTAT 3 
001720 004374 MOV #<b. SPOK!D. CART!D. DOOR!D. BRHM'D. TFOK> , SBMR2 
052504 JSR PC CKMRe 
RROR 254 “MSG Al ERROR AFT SEEK TO INV CYL 
004376 LR S 
Bose 737 052566 ISR PC CKMR3 
104 ERROR 255 :MSG B1 ERROR AFT SEEK TO INV CYL 
8034 051124 JSR PC ROCYLD “READ CYL DIFF IN MSG Ae 
8035 001402 901372 CMP CYLDIF, TOCYL 
8036 1401 BEQ 7§ 
8037 ERROR 256 -CYL DIFF IN RKMR2 NOT=CYL DIF 
2038 051210 7$: JSR PC, RDCYLA 
8035 001404 001372 C P CYLAOD, TOCYL 
eta rir, ERROR 257 -CYL ADDR IN RKMR3 NOT=RKDC 
8043 8S: 
8044 
8045 012765 490900 999000 HOV 
ao a, if Bp00i3 MOV sRECAL CMD 
Bove 001434 o04400 MOV 
my 7e32 JSR -FIND RDY 
B50 104124 ERROR "RDY NOT FOUND AFTER RECAL CMD 
B0S2 012765 190009 000000 nov sCCLR, RKCSI(P’s} eee 
Buea Oieree Sess bosbeD MOV ach En RAKES CRS)’ SDRIVE CLEAR CMD 
8055 1 00 434 004400 MOV T10, TEMP 
80S oO JSR PC FROY sFIND ROY 
8057 1041 ERROR 15 -NO ROY AFTER DRIVE CLEAR CMD 
B058 004 050016 JSR PC. TSTATN -TEST FOR ATTN 
2959 000401 BR 66$ 
8060 104154 a ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
Be M7:5q 004737 OS02S6 JSR PC, USTAT 3 
Anes O47] 000040 004366 BIT -IDAE,HMRS  ;SEE IF IDAE IS CLEARED 
| BObE i7ie) OO1DL BEQ sé ‘BR IF YES 
| 8067 7l2z2 1041 ERROR 1 IDAE NOT CLEARED AFTER RECAL CMD 
| 8069 0471 1 65S: MOV RKCS1(RS) 
| go70 471 173s oBIae Boaabe NOY OTA TEAS :LOOK FOR ATTN FROM RECAL 
047140 O47 37 JSR PC’ FATTI 
| 714 1 ERROR 55 ;NO ATTN AFTER RECAL CMD 
| 1 ,RO 
Be OS ee a 2 e 
| 7156 DOIG BEQ 6s SOP 
| 8078 7} 137 O46504 IMP it 
) . 
| 
§ 
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END OF PASS ROUTINE SEQ O150 


~SBTTL END OF PASS ROUTINE 


Ds each se gt repo rr + pregame paammae amin cantons 
ieTYPE END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

;#IF THERES A MONITOR GO TO IT 

;#IF THERE ISN’T JUMP TO STS 


2 
CR 
“5 


creeeyerercreren ie 








SEOP: 
SCOPE 
001100 MOV eSTACK, SP 
eed T SOE T -INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
Spas 0n1220 C SDEVCT :ARE ALL DRIVES PRESINT TESTED? 
BEQ SE0P142 -BR IF YES 
012174 IMP -IF NOT , TEST NEXT DRIVE PRESENT 
SEOP1: SCOPE 
001102 CLR STSTNM ;3;ZERO THE TEST NUMBER 
001174 CLR STIMES ::2ERO THE NUMBER OF ITERATIONS 
8100 001216 INC $s INCREMENT THE PASS 
101 100000 001216 BIC #) ,SPASS ::DON’T ALLOW A NEG. NUMBER 
8102 DEC (PC)+ : LOOP? 
81 SEOPCT: .WORD 1 
8104 BGT SDOAGN ;;YES 
B10 MOV (PC)+,a(PC)+ 3:RESTORE COUNTER 
ue so0rT: 9, | 
He Brite mr, FER, NE SORE 
81 1216 MOV = (SP) :3SA FOR TYPEOUT 
8110 OWNS TYPOS : G0 TYPE-—DECINAL ASCII WITH SIGN 
Bill 7314 TYPE SENULL :: TYPE A NULL 
Bile ae SGET42: MOV a#42,. RO -:GET MONITOR ADDRESS 
| B11 BEQ SDOAGN 3 IF NO MONITOR 
8114 RESET + THE WORLD 
| He SENORO: JSR PC, (RO) Be oe 
11 NOP : FOR 
a NOP ::ACTLI 
8120 JMP a(PC)+ : sRETURN 
Biel SRTNAD: . STs 
1 377 000 S$ENULL: ae -1.-1,0 »sNULL CHARACTER STRING 
 gle3 042412 O42116 SENOMG: .ASCIZ <15><12>/END pass’ #/ 
| 128 051501 O20123 ; 


SES 0151 


IT A_TERMINATOR? 
» SOMETHING WRONG. 





;GET STARTING ADDR OF ASCII STRING 


SRO INCREMENT DR FLAG ADOR 
.S/B 0-7 OR TERMINATOR 

Q 

GO 

S 

: 


;PROGRAM ID 
TYPED IN & SET 
sWAS TYPED CHAR 0 THRU 7? 


GISTERS APPROPRIATELY 
iy 
; 


E14 
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;SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM 


: : y 
= 2.9 : 
e. E44. cw ste. e F9 
Ww B75 ha be Se a. O.KcoO a mm ~ cs, 
ys Setene = Eetke .5 Sf8SS2 extzcneecene 
- § - $5 
5 O92 ERSRR2 8 HRere °k gESSEEE RiPeReDERGSE 
= 2 3 - mun - 
> bS & .. ce = & ‘eae ot 
e2E.a4 £.F @..34 @ £ 8 


E dim E68 & EE EG 


Fa 


=O00- 


cpliseesls Baebes 
SESDDORTEDDY POVEEERG 


&S 665446464 
HUUUBMAMMOMM Os Foo FFF FF TRA RM BOSS DASHA RRA RR Roe 


St ee het a det hee teeth Neat Ret din Ket et hte Ram eae Rae oan Rok Rare, Kem Re oe eee Bek Race Rook Roe Roe Keen Rte oe ee ee ee oe ee ee ee ee ee ee oe Kee Roe hoe hee Rae hae ham Ion om ae hae ae) 
WDMDOMOMOMDMOVIOWMVODDOOMMDOODMDOVMOODMOOMNO DOWO MMM OWMWMODWMMDODOMOWMDWOMMOWOMOWDON® 
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G12700 

ater os 

afte 
005237 

oo020? 

11 

2 

704 





a ier 


———— ———— 


oO ee eee 


BBSRRLOOLESBIRRLS 2 


DWOWDODOUOWDWIOOWWOOww 
0 2 b= f—2 f= 2 b—2 F—0 be = f= fe Pw 90 Fe fe Oe 


RRR ERR SSSA RSA ashe 


x 


SRSA SOO ONY SANS 


b= $= = > -2 & = fp he 
WoOnoeul£ 


047506 


es 


000761 


00013? 


eww! See ee wm... - = - wwe me 


001264 
177440 
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OZR6HE.P11 SUBROU 


001264 


001334 
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BR 
4§: TYPE 
JMP 
S$: INC 
SNE 
BR 
6S: INC 
RTS 
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7§ sFOUND TERMINATOR, EXIT 
EM! sONLY 0-7 ALLOWED. 
PRGSRT -START ALL OVER 

RI -S/B NO MORE THAN & DIFF 
1S “DRIVES TYPED IN. 

4§ - IF , HAVE ERROR. 

SIZFLG -D0 TEST 1 (SIZING) 

PC *EXIT. 


SROUTINE TO INPUT RKBAS OR DEFAULT. 


GBA: RDOCT 
MOV 
TST 
BEQ 
MOV 
RTS 

1S: MOV 
RTS 


{3 )+, RO ;GET LOW ORDER FROM STACK 
1$ ;BRANCH IF DEFAULT. 
RO, SBASE 


PC 
Sree, Sane ;DEFAULT VALUE 


* ROUTINE TO INPUT RKVEC OR DEFAULT 


GINT: RDOCT 
MOV 
TST 
BEG 
MOV 

es: JSR 
RTS 

1$: MOV 
BR 


{SP )+,R0 ;GET LOW ORDER FROM STACK 
1§ ;BRANCH IF DEFAULT 

RO, RKVEC 

eel 

a aeaaees ;DEFAULT VALUE 


SROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


SETINT: MOV 
MOV 


MOV 
RTS 


RKVEC, RO 
RENTER (RO)+ 
RKPRI., (RO) 


; INTER ADDR TO RKVEC 
PRS TO RKVEC+2 


t ROUTINE TO FIND CONTROLLER READY (ROY) DURING A DELAY 
sENTER ae a y hor PACSENT TOP ERROR 


SW 8 Std Wel RNR FERN) en case 


SEG 0152 


SEG 0153 


G14 
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= pos OU SRE PT 





STORE ALL RK611 REGS IN HOLDING REGS. 
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SEQ 0155 

TYP G0 TYPE--OCTAL ASCII 
.BYTE 1 :: TYPE 1 Drett¢g) 
-BYTE :: SUPPRESS LEADING ZEROS 
RTS p 

THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 

-IT THEN WAITS FOR CONTROLLER READY. 

__ $IF RDY NOT RECEIVED BY A TIMEOUT, AN ERROR IS FLAGGED 
GSTAT: Oy TO SP) nc) SME TEPL ve 
: MOV SSELDRV,RKCSI(RS) ;GET STATUS WITH SELECT DRIVE CMD 

MOV T10, TEMP 
JSR PC, FRDY sFIND RDY 
ERROR 117 :RDY NOT SET BY END OF SELECT DRIVE CMD 
MOV (SP)+, TEMP sRESTOR TEMP 
RTS pc 

'THIS ROUTINE DOES A SUBSYSTEM CLEAR & WAITS FOR CONTROLLER READY 

-IF RDY IS NOT RECEIVED BY THE END OF THE TIMEOUT. AN ERROR IS FLAGGED. 

* THE ROUTINE THEN GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR) 

“RETURN IF CER T 

‘RETURN +2 IF CERR CLEAR 

SUBCLR: MOV #SCLR,RKCS2(RS) ;SUBSYS CLEAR 
MOV T10, TEMP ) 
JSR PC. FRDY FIND RDY 
ERROR 120 -RDY NOT SET BY END OF SCLR 
MOV SUNIT,RKCS2(RS) ; 
CLR RKMR1(RS) ‘SELECT WORD O 
JSR PC, GSTAT <GET STATUS 
BIT #CERR, HCS1 -CHECK FOR CONT ERROR 
BEQ 1$ 
RTS PC 

18: ADD #2, (SP) -SKIP OVER ERROR 
RTS PC 

'READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 

C: MOV #3,RKMRI(RS)  ;WORD 3 

ROSE JSR Pe’ CSTAT = . 
MOV OR 
Bok atch seine GHT JUSTIFY 
ASR KioR SECT 
ASR SECTOR : INFO 
ASR SECTOR 
RTS PC 

‘READ THE SECT TO RKMR3 IN 20 SECTOR FORMAT 

*RIGHT JUSTIFY IT & STORE IT IN SECTOR’ 


2 
bs 
22 
=e 
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DZR6HB. SUBROUTINE SEC 0156 
8406 R2OSEC: Noy TEMP = (SP). SAVE TEMP 
8 MOV SUNIT RR Ce3<RS) EET Rive Fi 
MOV e<CFMT! SELDRV> , RKCS1(RS) -SETUP 20 SECTOR STATUS 
8410 MOV T10, TEMP 
ae 1S: BIT BRODY, RKCS1(RS) 
e413 DEC TEMP! sTRY AGAIN IF TIME NOT UP 
Bute ENFOR 117 sROY NOT SET AFTER SELECT DRIVE CMD 
8416 MOV (SP)+, TEMP! ‘RESTORE TEMP 1 
Bul? RTS PC 
buts 001426 2S: MOV HMR3, SECTOR “GET SECTOR INFO 
g420 001426 BIC #tC<M. SECT», SECTOR 
B42] ASR SECTOR 
Bice ASR SECTOR 
B4 ASR SECTOR 
pice ASR SECTOR 
B42 MOV (SP)+, TEMP sRESTORE TEMP 1 
8427 RTS PC 
B428 
g429 
8430 
8432 


SFIND SECTOR O IN 22 SECTOR FORMAT. 
SERROR FLAGGED IF NOT FOUND BY TIMEOUT 





8433 : 
By 34 013746 004400 Fso22: MOV TEMP1, -(SP) -SAVE TEMP1 
B43 01 001444 OO44OD MOV T5000; TEMP! -SETUP TIMEOUT 
g4 004737 OSO400 18: JSR PC, RDSEC -READ SECTOR 
BY oS 001426 TST SECTOR “LOOK FOR SECTOR O 
8439 J RDSEC 
8440 001426 TST ETOR 
001406 BEQ 3$ -BR IF SAME TWICE 
004400 2S: DEC TEMP! 
eis 0506-36 1 BNE 1$ -TRY AGAIN IF TIMEOUT NOT UP 
DS0640 1 004400 MOV (SP)+, TEMP! “ELSE RESTORE TEMP1 
B4Y4S RTS pc EXIT 
ei OS0b46 12637 OO44O0 3S: MOV (SP)+. TEMP] 
8447 OSCE 16 Oo0000e2 800 #2, (SP) -SKIP OVER ERROR 
aie 050655 RTS pC 
8450 . 
B45! *FIND SECTOR O IN 20 SECTOR FORMAT. 
Bibe IF NOT FOUND BY TIMEOUT 
8454 OS0660 O01 004400 FS020: MOV TEMP1,-(SP) sSAVE TEMP 
B45S 001444 OO4400 MOV TS000. TEMP! ‘SETUP TIMEOUT 
050450 1S: JSR PC, ROOSEC “READ SECTOR 
001426 TST SECTOR *LOOK FOR SECTOR O 
OS04S0 Ro PC, REOSEC 
8460 050710 001426 TST SECTOR 
6461 050714 001406 BEQ 3$ -BR IF SAME TWICE 





O2AGHG.Pii SuBROUYines” 
050716 005337 04400 


§ 012687 0400 


050730 000207 
Os073 Oeerig 00002 
050736 062716 
oso742e 900207 


PR ut 
00 
3737 O01422 001426 


See 


2 

S 
= 
o 


00 
14 


ui 


uw 


rata atts 004400 
051258 aes 001426 
051062 oso4s0 
051066 001422 001426 
051076 004400 
051102 
051104 004400 
051110 
pettt Sboobe 
belies 

oo0002 000026 


soos SRP ER EER ERAS LC cid ta RERERPRABE GS tot aad 





es 


ee 
fata 
ne 
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SEG 0157 


2$: DEC TEMP 1 


BNE 1 -TRY AGAIN IF TIMEOUT NOT UP 
MOV (SP)+, TEMP “ELSE RESTORE TEMP! 
RTS EXIT 
33: MOV (SP)+. TEMP] 
ADD #2, (SP) ‘sSKIP OVER ERROR 
RTS PC 


: FIND NEXT SECTOR IN ee SECTOR FORMAT 
ERROR FLAGGED IF NOT FOUND BY TIMEOUT 


End2e: NOV TEMP1.-(SP) -SAVE TEMP 1 


TS00, TEMP! -SETUP TIMEOUT 
1S: JSR pc C *READ SECTOR 
CMP PSEC, SECTOR 
BEQ 3$ :BR IF SAME 
JSR -ELSE TRY READ DIFFERENT TWICE 


PC RDSEC 
CMP PSEC, SECTOR 


BNE :BR IF DIFFERENT TWICE 

3S: DEC TENPL “ELSE. TRY AGAIN IF TIME LEFT 
HOV (SP)+, TEMPL sRESTORE TEMP 1 

2S: MOV (SP)+. TEMP! sRESTORE TEMP 1 
ADD 82, (SP) -SKIP OVER ERROR 


S FIND NEXT SECTOR IN 20 SECTOR FORMAT 
ERROR FLAGGED IF NOT FOUND BY TIMEOUT 


ENs20: MOV = (SP) -SAVE TEMP 1 
MOV t800 a l -SETUP TIMEOUT 
1S: JSR PC, REDSEC sREAD SECTOR 
CMP PSEC, SECTOR 
BEQ ;BR IF SANE 
JSR “ELSE TRY READ DIFFERENT TWICE 


PC, REOSEC 

CMP PSEC, SECTOR 

BNE 2 -BR IF DIFFERENT TWICE 

3S: DEC TEMP <ELSE TRY AGAIN IF TIME LEFT 
MO 


1$ 
(SP)+, TEMPL ~ sRESTORE TEMP 1 
2S: MOV (SP)+. TEMP] sRESTORE TEMP 1 
#2, (SP) SKIP OVER ERROR 
‘READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF’ 


ROCYLD: MOV «#2, RKMRI(RS)  ; WORD 2 
JSR —-PC’GSTAT 


MOV CYLDIF 
BIC arch CDIF>, CYLDIF 

ASR CYL *RIGHT JUSTIFY 
ASR KYEDIF -CYL DIFF/OFFSET 


te 


~ 
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OZREHB.P11 SEQ 0158 
8518 O0S1162 006237 001402 ASR CYLDIF » INFO 
8519 OS1166 O06e37 001402 ASR CYLDIF 
520 51178 0537 001402 000777 CMP CYLDIF, #777 -CHK TO SEE IF RET IN COMPL. FORM 
1 OS! 1 BNE 1$ -BR IF N 
8S22 O0Si202 005037 001402 CLR CYLDIF -CLR IF YES 
S23 051206 000207 1S: RTS PC 
B5e5 -READ THE CYL ADDR IN RKMR3; RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 
8527 051210 012765 oO00002 O00026 RDCYLA: MOV #2,RKMRI(RS)  ;WORD 2 
8528 051216 004737 OS0256 JSR PC'GSTAT 
O51 13737 O04 366 001404 MOV HMR3. CYLADD 
l 2737 160017 001404 BIC ##C<M. CADD> , CYLADD 
8531 051236 37 OO1404 = ASR CYLADD -RIGHT JUSTIFY 
8532 O0Sle4e2 37 001404 ASR CYLADD “CYL ADDR 
8533 05124 37 001404 ASR CYLADD : INFO 
8534 O0Si2S2 006237 001404 ASR CYLADD 
8535 051256 000207 RTS PC 
8537 FIND LIMIT DETECT ON SEEK IN RKMR3 BEFORE TIMEOUT 
8538 “RETURN IF NOT FOUND: 
8539 *RETURN+2 IF FOUND: SKIP OVER ERROR 
1 476 ELIM: CLR LIMERR LIN IT DETECT ERROR FLAG 
Beqd Bet Ses REEL Soa 7en 004400 MOV #500. , TE sSE] UP TIMEOUT 
8543 OSl2e7e 012765 000001 000026 MOV #1,RKARICRS)  :WORD 1 
8544 051300 004737 OS02S6 1S: JSR PC‘ GSTAT 
8545 051304 004366 BIT #D.LIMD,HMR3 
051312 001006 BNE x3 sEXIT IF SET 
8547 051314 005337 904400 DEC TEMP! 
8548 051320 001367 BNE 1$ 
8549 051322 37 001476 INC LIMERR :SET LIMIT DETECT FLAG 
051326 000207 RTS pC 
8551 051330 062718 ooo002 23: ADD #2, (SP) -SKIP OVER ERROR 
BS5¢ 051334 RTS pC 
ess4 ‘ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE TIMEOUT 
esss ;ENTER WITH TIME IN SECONDS IN TEMPe 
8556 TURN IF NOT 
B57 —— *RETURN+2 IF FOUND - SKIP OVER ERROR 
8559 051336 012737 177777 OO4HOO FHDHM: MoV #-1. TEMP! “ALL 1°S 
8569 051344 012765 O00001 o00026 MOV #1, AKHRI CRS) ;WORD 1 


—_—— Se" + ees ee Oe eS SS — er ee -_——_ ~*- -_*—-?- —-—<— « . - _ 


A AT A A A 


- ——_ = a i a ae we Oe ee ee! 


2 
5 
2Z 
“§ 


of 
a 


saunaaagapeanan ¢ 


otatatatatatatatat: 


051412 


—_——— es OO — 2 


012737 


050256 
000040 


004400 
004402 


000002 


000372 OO4400 FLOAD: MOV 
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SEG 0159 

i$: JSR PC, GSTAT 

BIT #D.HDHM, 

BNE 

DEC TEMP] 

BNE i$ 

DEC TEMPe 

BNE FHDHM 

RTS PC 
es: ADD te, (SP) ;SKIP OVER ERROR 

RTS PC . 


‘ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE TIMEOUT 
SRETURN IF NOT FOUND 
TRETURN+2 IF FOUND: SKIP OVER ERROR 


&eS0., TEMP ;SETUP TIMEOUT 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 
SUBROUTINES 


OZR6HE.P11 
8577 051420 
8578 051426 
en i 
8S81 1442 
See 
ae 

8S 051456 
8S86 
8S87 
&S88 
8589 
8530 
8S91 
8S392 051460 
ae 
Be Biss 
8596 051472 
Se bie 
Bs Bi 
8600 051514 
8601 051520 
8602 0515c4 
8603 051532 
ea 051536 
8606 051542 
8607 OS1546 


—_—oe— « —_— = _—- 


012765 
004 


000001 000026 
0502 


010000 
004400 


000002 


1 


Sssessss g 
S 


8 8 
Si 


004364 


0014Se2 


001456 
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MOV #1,RKMRI(RS) ~ ;WORD 1 

$ JSR 
BIT #0. LOAD, HIRE 

NE 

DEC TEMP! 
BNE 1$ 
RTS: PC 

25: AD #2, (SP) -SKIP OVER ERROR 
RTS PC’ 

FILL HEADER TABLE MITH 66 WORDS OF VALID HEADERS 

“ENTER WITH CYL # IN ’CALADD’ 

-ENTER WITH HEAD # IN HEAD 

-ENTER WITH FORMAT IN ’FORMAT’ 

uDTAB: MOV RO,-(SP) :SAV RO 
MOV Ri. -(SP) ;SAV RI 
MOV #HOTAB, RO ‘HEADER WORD TABLE ADDR 
CLR R1 -SECTOR COUNTER 
MOV HEAD, HD1 
ASL HD 1 
ASL HD 1 
ASL HD 1 
ASL HD 1 | 
ASL HD1 sSETUP HEAD # FOR WORD 2 OF HEADER 
MOV FORMAT, FMT1 
SWAB Ss«éFMT 1 
ASL FMT -SETUP FORMAT FOR WORD 2 OF HEADER 

1S: MOV CALADD,(RO)+ § ;HEADER WORD 1-CYL ADDR 
MOV — R11, (ROS sHEADER WORD 2-SECTOR NO 


‘SEQ 0160 


SeG Clé1 


“HEAD NO 
-FORMAT 
-GO0D SECTOR FLAGS 
TORS DONE? (66 WORDS) 
C 
N 
;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
;PUT TOP OF RHTAB TO BOT OF SRTTAB 


ms Bo 2 2 #8 
° - 

Lo | Ge —_ Fs S es a 4 c 

Lo : use == : ee B £ 8 ee ee fee 

ts 3 e ES eed es ss 8 & Y 

r P re wun = ee om & at nur - moe 

8 a ae a 

pa ¥ me Fas. 
“=o . oo oe Fo - 
Ons SREeeS ze Bae pie es 

* o@s -Srpee = couse gest Get HES 3 ne 

oS SS eet Yo xe te BOOS Soe ge +m ++ = SSS 

GED SES88E ce She Bo galled Tet $8 Bae Efee Se F ome 

"i z 2 

« wi : 

et. WM >>WQOwWM> te wm . 

- gum &fnsae asa See be SSRSh S858 8S sk! ssk¥ ser : Roz 

z mE 5% 

2 #3 & 4 23 


FRRT J 


TI é 
oe 
ns 
0C14 
= 
oe 
o000e6 
0S0400 
OO0G0 
0S1746 
ree 

1426 
001704 001426 
sie 


DIAGNOSTIC 


oe5r1 
‘i 
l 
ae 
Br3720 

13> 

1244 
012601 
Sosa? 
O1004%6 
Boa? 
004737 
01 
bi 
012701 
01202 
pede? 062110 
Bt 

] 
01260 
O16 
006337 
Soe33 


Ra BESS. AR eR 86 SPER Qe BS 


otodeo 4 otedo4e eo 404 wte-@eo i or oo co) vege de Godage wee tet 4 4 one 


<= SESS SES66SS 464 498 SEEES SESE 88 


(iidshsshiadnadcenladanaadeededaaaabeeeeaiMaeseasaaee 


ORT 
j 


1714 
Bi7ig 
o51749 
951744 

re 
756 
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iddsMdRs AANRRO AMAA AMASARERERERERACCOS CSE SSBODESSSGSS 
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BR 1$ 
ae ea 
V (8p) 3° Re REETOR zy 
RTS PC 
MOV (RY), WORD 


-GET HEAD 8 SECTOR FROM BSE TABLE 
#177400,WORD § :KEEP SECTORS ONLY 
WORD, SECTOR “SECTOR COMPARE? 


Mp : 
BEQi(‘ié‘*wSS 'BR IF YES 
Ist CRs -ELSE GET NEXT CYL 3 OFF TABLE 
4S: MOV (R4)+, WORD -GET HEAD & SECTOR FROM BSE TABLE 
SWAB WORD a 
CHE «= CHORD, HEAD =«EHER COMPARE? 
BEQ S$ -BR IF YES 
BR 1S 
Ss: MOV (SP)+, STMP1 sRESTOR 
MOV (SP)+’ STMPO ;RESTOR 
MOV (SP)+ RESTOR RY 
ADD #2, (SP) “SKIP OVER ERR ON RETURN 
RTS PC 
‘ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 
ELKON: MOV #PRO, -(SP) -PSW LOADED TO BE 
MOV #2$,-(SP) *LSI-11 COMPATASLE 
ATI ‘ENABLE INTERRUPTS FROM CLOCK 
2s: CLR TIMUP 
PCLKF 


$ sBRANCH IF P- PRESENT 
sL-CLOCK, E INT 


Sag apes ENGBCE INT ct OP, REP INT 
Pe ; PONE FREG £ RUN ° 


SKW11-L 8 KW11-P INTERRUPT HANDLER 


1$: MOV 


tLock: TIMUP 
See COUNT 
BNE 1$ 
MOV HZ, COUNT 
fe it 
I : MUP -SORRY, TIME IS UP 
1S: RTI 


'ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 


ALKOF: MOV #PR7, (SP) -PSW LOADED 10 BE 
MOV —s- #28, 2 (SP) 1 SI-11 COMPATABLE 


SEG 0163 
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Pil TINES «SEG 0164 
os2H69 goood RT ‘DISABLE ALL INTERRUPTS 
OO4446 2$: TS PCLKF 
BNE 1$ ;BRACH IF P-CLOCK PRESENT 
20 126652 CLR aLKS *L=CLOCK, CLEAR INTERRUPT 
DSeu76 905077 126636 1$ CLR gPKs pee. CLEAR INTERRUPT 
STHIS ROUTINE CHECKS RKMR2 (MSGA)-WORDS 0 8 1 
s ENTER WITH VALUE IN 
RETURN IF URN +2 IF COMPARE 
01 004400 CKMR2: MOV TEMP}, =(SP) -SAV TEMP! 
001222 004374 BIS SUNIT, SBMRE ‘INSERT DRIVE 8 
004400 MOV TEMP! 
0S2664 JSR PC, SBPAR -GET PARITY FOR SBMR2 
bow400 004374 MOV TEAP1, SBMRE :NOW HAS PARITY 
004364 CHP SBrRe  HMRe BE SAME 
l 004400 MOV (SP)+. TEMPL -RESTOR TEMP1 
16 o0000e R00 we, (SP) “COMPARE OK, SKIP OVER ERROR. 
O1ee37 004400 1S: HOY (SP)+, TEMP sRESTOR TEMP1 





TS PUTING, CE RG, (TER HOS 0 8 | 


RETURN IF NO COMPARE, RETURN +2 IF COMPARE 






EEREREERESIISIIIIIIIIIIIII oe 


052566 01376 min MOV TEMP1, -( >SAV TEMP! 

01 004400 MOV HMR 1 % 

052600 042737 1 004400 BIC #¢C<A.ID>. TEMP 

Beit beset BONO yp a as 

eg peses3 JSR -GET PARITY FOR SBMR2 

at ee L man Oe Slo See 
15 1 BNE ; 

8816 OS2b44 O1 004400 MOV + sRESTOR TEMP! 

8817 Dseb50 oo000e2 B00 , (SP) “COMPARE OK, SKIP OVER ERROR. 
i8 RT 

6819 OS2656 012637 OO4400 1S: MOV (SP)+, TEMP sRESTOR TEMP1 
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OZR&HB.P11 SUBROUTINES SEQ 0165 
B320 0S2662 000207 RTS PC 
B55 2s THIS ROUTINE GENERATES PARITY FOR SBMR2 AND SBMR3 
sed sENTER WITH N TEMP 
: TEMP “LE T 17 TIMES. EACH TIME THE CARRY BIT IS SET 
-R1 IS I TED. AT THE END OF 17 ROTATES TEMP1 BACK TO ORIG), 
3Ri BIT O 1S EXAMINED. IF iSacet INDICATING AN ODD # OF 1 
; THE PARITY BIT IS NOT SE 
ce EIT I$ ay SET, INDICATING Noi EVEN # OF 1°S , THE PARITY BIT - 
Bee dspar: MOV RO,-(SP) “SAVE RO 
8833 MOV Ri} -(SP) Ri 
S534 000021 MOV #17. ,RO -SHIFT COUNTER 
8835 CLR Ri ‘COUNT # OF 1’°S IN TEMP! 
B86 CLC -CLEAR CARRY 
8838 904400 1$ ROL TEMP 
9839 BCC 2g -BR IF CARRY CLEAR 
BB4O INC Ri ‘COUNT # OF 1°S 
884] 2s: DEC RO ‘SHIFT COUNTER 
eve BNE 1§ 
bo 000001 BIT #8170, Ri 
BNE -BR IF ODD # IN RO 
Bere 100000 o04400 = BIS PAR, TEMP SET ITY BIT 
gua MOV op)e RO RESTORE a4 
B49 RTS PC 
88S0 
88S 
BBe> “ROUTINE TO ENABLE LOOPING ON INTERMITTONT ERRORS 
WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE 
g8S4 : JE: MY LOOP MACRO 
Beer 001000 126174 SCOPIS: BIT #SW9, ISWR :LOOP ON ERROR? 
8857 BEQ 1$ -BR IF NO 
858 001103 TSTB © SERFLG =HAD ERROR? 
BE 1§ -BR IF NO 
8860 001110 MOV SLPERR, (SP) 
8861 RTI 
See oe 001110 1$: HOV (SP), SLPERR -SET LOOP ADDR FOR TIGHT SCOPE LOOP 
pat : 
Bee? ; CHECK FOR SW14 (LOOP ON TEST) OR SWB (LOOP ON SPECIFIC TEST) 
Bees t RETURN IF NEITHER SET 
8870 ; RETURN +2 IF EITHER SET 
TH TINE IS AT THE END OF ANY TEST THAT REQUIRES 
He TUS, SUBROUTINE USED ar. THE ENO OF gin TEST, THRT REQUIRES. 
| BE76 052770 005037 001176 AuTST: CLR  SESCAPE 
1 
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LPFLG 


oad , ISWR 


#2, (SP) 
PC 


#SW8, JSWR 


dSWR, STSTNM 
1$ 


PC 


;LOOP ON TEST? 
;BR IF NO 


sLOOP ON SPECIFIC TEST? 


~SBTTL UNEXPECTED TIMEOUT HANDLER 


THIS wy on” 1 ENTERED IF THERE 


1S: 


TMO: 


C. STACK LOW 
(SP) RO 
TST -(RO5 $ 
BIT ays ; 
MOV RO, -(SP) 
TYPOS 
.BYTE 6 
,BYTE 0 
BIT #SW9, ISWR 
eee 354 (SP)+ 
JMP JSLPAOR 
BIT #SW14, ISWR 
BEQ 3$ 
RTI 
HALT 
(SP)+, (SP)+ 
oNP $PoPl’ 


IS 


;BR 
GH LS sg SWR <7:0) 


IF 


EXISTANT MEMORY (NO SSYN) 


cea ret ASCII 


;;TYPE 6 DIGIT(S) 


it 


ZEROS 
ON SRA 


Seana ROOR Rs TEST 
{Looe OW fest? 


en 


;UNEXPECTED TIME QUT OCCURRED 
D. YOU CAN 


.SBTTL UNEXPECTED INTERRUPT HANDLER 


‘THIS ROUTINE CHECKS pals (INH ERR TYPOUT), 


38 SW14 (LOOP ON TEST). 


SWS (LOOP ON ERR) 
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Pi UNEXPECTED INTERRUPT HANDLER SEQ 0167 
053126 011600 BADINT: Nov (SP) ;RO -SAVE PC WHERE INT OCCURRED 
rele 038777 020000 126000 et] ie , aSWR ier eae tyPeouT 
Dosive 104801 061511 TYPE SORT at lta AR vPENEXP PINT J Pts 

l 10046 MOV R Me SP) Higa: 
7531 l TYPOS TAL ASCII 
0531 ON Ote -BYTE 6 & Ee. diet: Sy 

053153 000 ‘BYTE 0 33 TYPE 8-0 
053154 032777 001000 125756 1S: BIT #SW9, ISWR iL. 0OP ON allt ERROR? 
ats ee Rep (SP)+. (SP)+ STORE STACK 

165 5 DIP? 125714 JMP JSLPADR Pitt STARTING QODR OF OF 
0531 032777 040000 125740 2S: BIT #SW14, ISWR > ON ON TEST — 
1401 : BEQ 3$ i: BRANCH 
OS3e02 o0000e2 RTI : YES. 
053204 000000 3S: HALT s EXPEC INTERRUPT OCCURRED AS 
ICA YOU CAN LOOP ON ERROR, 


; LOOP ON TEST OR INHIBIT 
RROR TYPEOUT BY SETTING THOSE 


PUETLELURSRERPARER Gs dca tia uaa ilies testes pe crrtit é 
: : 





OS 
BYTE 6 ;; TYPE 6 DIGIT(S) 


ITCHES 
022626 CMP (SP)+, (SP)+ *RESTORE STACK 
953210 000137 o47e212 JMP SEOP1 “ABORT TESTS 
.SBTTL MEMORY CHECK ENABLE TRAP 
053214 012737 953230 001176 MEMERR: HOV #1, SE LOAD ESCAPE 
l ERROR 236° slong Fe MEM PARITY TRAP 
601008 iS: HTT «= aSH9 SUR 

BNE ' ee FORCE ST STACK oh NOT TRY AGAIN 

2s: MOV sSTACK, SP —_ STACK 
JMP JSLPERR ‘LOOP ON ERROR 

.SBTTL RKO6 INTERRUPT HANDLER 

INTER: NOP 
NOP 
MOV (SP). RO sSAVE PC WHERE INT OCCURRED. 
TST -(RO) GET P FORE UPDATE. 
TYPE : INT 
MOV RO. -(SP) fa RD FOR TYPEOUT 
TYP :2G0 TYPE--OCTAL ASCII 

| 
| 





sat 
on 
Ge 
es 
ae 
Be 
8398 
ee 
3 
a 
a 


osssesss 
0 2 02 ps be be pe 
OuUl£cuyrrH-O 


_—-— ee 6S eee eee = 


oR 
“e 


pes302 
Oesre Gone 
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.BYTE 
HALT 
NOP 
NOP 


000002 RTI 
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0 ;; SUPPRESS LEADING ZEROS 


~SBTTL POWER DOWN AND UP ROUTINES 
;POWER DOWN ROUTINE 


SPWRON: MOV 
HAL T 


SSPWRUP,PWRVEC ;SET UP VECTOR 


;POWER UP ROUTINE 


--e sHANG UP. 
SPWRCT sWAIT LOOP FOR TTY 
— sual FOR THE INCR 


#SPWRON , PWRVEC T POWER DOWN VECTOR 
8PR7, PURVEC+e iat PO ? 
aPR? TREEVEC2 5 ‘LOCKOUT ALL INTERRUPTS FOR TRAPS 


sWAIT COUNT FOR TTY 


SEQ 0168 


5354 
— > -p— 
Won) 


SSO daia cau ee eet ee eacisetsinrisinsisitstanapuatits 


EO ON 


5351 


peueteane 





— 
Tw 
- 
3 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 
OZREHB.P11 


SCOPE HANDLER ROUTINE 


= 


1 


a Gee 


= Ore 
oO 

— ii 
SEF. 
~~ 
ui 


SBeR 
RE 


Re 


125530 


125372 


001104 
0011 
0011 


001214 
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~SBTTL SCOPE HANDLER ROUTINE 


gE SS SESE SESE SESE SEE SE SE SESE HE SEE SESE HEHE SE HE EE SE HE HE HE EE 
ATH 1 ane +3 CONTROLS THE OF SUBTESTS. IT WILL INCREMENT 
HE TEST phRoa FRE (eeten a) INTO THE DISPLAY REG. (DISPLAY<7:0> ) 


LOAD, THE LG) INTO DISPLAY 
ae, = CH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON TEST 
Sull=t tOGe OF ITERATIONS 
: +5W08=1 L IN SWR<7:0) 
> #CALL 
+ SCOPE i 0 
SSCOPE: 
CKSWR :;TEST FOR CHANGE IN SOFT-SWR 
1S: BIT #B1T14, ISWR $3LOOP -DRESENT TEST? 
-geeeeSTART OF CODE FOR THE XOR tes sees 
$xTSTR: BR b$ -IF RUNNING ON THE “XOR” TESTER CHANGE 


TES 
: THIS INSTRUCTION TO A “NOP” (NOP=240) 
;;OAVE THe CONTENTS OF THE ERROR VECTOR 





MOV J#ERRVEC, -(SP) 
MOV aS, JHERRVEC iSET FOR TIMEOUT 
TST dsl osT OUT XOR? 
MOV (SP)+. Q8ERRVEC ;::RESTORE THE ERROR VECTOR 
BR SSVLAD 330 TO THE NEXT TEST 
SS: CMP (SP)+, (SP)+ : CLEAR STACK AFTER A TIME OUT 
MOV (SP)+> Q#ERRVEC ; ;RESTORE ERROR VE 
BR 7§ LOOP ON THE PRESENT TEST 
6$:;#888HEND OF CODE FOR THE XOR ‘+ecteResass 
BIT #BITO8, ISWR LOOP ON 
BEQ 2$ : BR 
CMPB aSWR, STSTNM : ON SWR<7:0> 
BEQ SOVER °:BR I 
= Be oe ty pa’ pegheerenes 
CHP SERMAX, SERFLG sFMAX FOR THIS TEST OCCURRED? 
BIT #81709, SWR ; LOOP 
BEQ 4g + 
7S: NOV SLPERR,SLPADR ;::SE SS TO LAST SCOPE 
4§; CLRB > 3 ZERO 
CLR STIMES . CL ITERATIONS TO MAKE 
BR 1$ > sESC TEST 
3$ BIT | lec 55 ame 
at SPASS :: IF OF PROGRAM 
BEQ 1$ 8 IONS : 
INC SICNT i INCREMENT COUNT 
CMP STIMES,SICNT  ;;CHECK ITERATIONS MADE 
1S Roy SI Re ATE STOP RATION COUNTER 
MOV SMXCNT, STIMES + CF IONS TO DO 
SSVLAD: INCB  §TST COUNT TEST NUMBE 
MOVE §§ STSTNM,STESTN ;:SET TEST NUMBER IN APT MAILBOX 


SEQ 0169 
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PLE ECORE HAROLER ROUTINE SE0 0170 
053620 011637 001106 MOV (SP), SLPADR »sSAVE SCOPE LOOP ADDRESS | 
Ooze ll 001110 MOV (SP) SLPERR »: SAVE ERROR LOOP AODRESS 

1 bp000) 001115 ve SCR be a oe ESCAPE ty ERROR ON NEXT Teer 
eer a157 7 vate 13e373 SOVER: MOV STSTNM, SOISPLAY i OTSPLAY TE TES AUMGER 

13716 001106 MOV SLPADR, (SP) *:FUDGE RETURN ADDRESS 
0S36S4 900002 RTI ssFIXES PS 
053656 003720 SMXCNT: 2000. -:MAX. NUMBER OF ITERATIONS 


-SBTTL ERROR HANDLER ROUTINE 
Lt haiti ie it a Sere ere ar te 


ats au THE ERROR TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;#AND GO TO TYPERR ON ERROR 
S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


a -¥SW1S5=1 HALT ON ERROR 

:#5W13=1 INHIBIT ERROR TYPEOUTS 
: #5W10=1 BELL ON ERROR «  @ 
j #SHOS=1 LOOP ON ERROR 3 % 
: # ERROR N »sERROR=EMT AND N=ERROR ITEM NUMBER m ‘ 
SERROR: 

104407 CKSWR ;;TEST FOR CHANGE IN SOFT-SUR 

10S237 001103 7§ INCB 


SERFLG 33 9ET THE ERROR FLAG 
7$ ’T LET THE FLAG GO TO ZERO 
STSTMH, AQISPLAY | DISPLAY TEST an AND ERROR FLAG 


agaguaseseanasensnaaeeens dp 


= 
a3 
8 
B 
RS 


125234 BIT #B1T10, ISWR ON 

Te BEQ , mr - SkI 
ey as, ee REIS PE nen or cmon 
ll l te MOV gERTTL "Serene +100 ADDRESS RROR INSTRUCTION 
l 001116 SUB a2 sERPC 
11 125162 001114 MOVB ::STRIP AND SAVE THE ERROR ITEM CODE 
032777 020000 125174 BIT BIT 13 dun ::SKIP TYPEOUT IF SET 
001004 BNE ::SKIP TYPEOUTS 

072126 JSR TYPERR -:G0 TO USER ERROR ROUTINE 

001205 , SCRLF 


a 


& 
g 
: 
= 
3 


000001 001230 ; CHPR WAPTENV,SENV §;; RUNNING IN APT MODE | 
SITEMB, 21$ -:SET ITEM NUMBER AS ERROR NUMBER 





WwWwWO0WWDWWOWWWWYu DWWWWDWWDWWWWWWwWWwW 
ee ae 0 0 0 ee ee pe 


BRR ON Rae Non com —- OSB VeREOU—S 


004737 JSR PC, SATY4 ::REPORT FATAL ERROR TO APT 
21S -BYTE 0 
YTE 0 
005777 125130 Se TST cee $AALT AN ERROR 
000; ‘ BPL 3$ SKIP Tr F CONT INUE 
1 CK af eT FOR CH SCHNGE. 11 SOFT-SWR 
001000 125114 33: BI #81709, aSWR ITCH SET? 
cate a a ae 
phe7 48 as tie 4S; TST Bee + CHECK F ESCAPE -ADDRE 
boLude BEQ BR IF NONE 
013716 001176 MOV SEScAPE, (SP) t  FUDGE RETURN ADDRESS FOR ESCAPE 


Z 
5 


Yo TY o DV o TV o TV o TV o TV o Tv] 


+ & +6 & = b -° b= F— & = H—< P< p—— p— 9 


fs Fs pee 


SEF EESESSRIR ROBBERY 


bw fs 


0.0.00 CWW DOWD WWWDKOWOODO HWW WWO OOD WVVOWWOWOWOWWOWWVDNWOWWOWwWW 


PEREB Ia cllsdn Semon TORO Sow UM TOKO Se 


: 
: 
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HANDLER ROUTINE f SEQ 0171 
0S4044 S$: 
OS4O44 022737 047300 od0004e CMP #SENDAD, d#42 »:ACT-11 AUTO-ACCEPT? 
OS40S2 001001 BNE 6$ i BRANCH H IF NO 
OS40S4 000000 HALT ° YES 
054CS5 6S: 
OS40S& 000002 RTI : sRETURN 


-SBTTL TYPE ROUTINE 


s SEEEELPE ASL E LEELA ESE LES EE SY ES EEES EE EERE EERE TEL ESE EBEF EE ELEAE EES 
 KROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
-*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


:¥NOTEL: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: #NOTES: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: #NOTE: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
iat) USING A TRAP INSTRUCTION 
or TYPE ,ME »:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
: TYPE 
i MESADR 
;% 
oS4060 105737 001157 $TYPE: TSTB $TPFLG ::IS THERE A TERMINAL? 
054064 10000¢' 1$ -:BR IF YES 
054066 000000 . HALT ::HOALT HERE IF NO TERMINAL 
054070 000430 3$ + LEAVE 
010046 1$ MOV RO, -(SP) VE RO 
054074 017600 oo0002 7” MOV JetSP).RO -GET ADDRESS OF ASCIZ STRING 
054100 122737 000001 001230 CMPB ss SAPTENV, SENV RUNNING IN 
054106 001011 | BNE 3NO.GO CHECK FOR APT CONSOLE 
054110 132737 000100 O01231 --. BITB §§ sAPTSPOOL,SENVM ;;SPOOL MESSAGE TO APT 
Os¥116 00140sS BEQ NO GO CHECK FOR CONSOLE 
054120 010037 054130 MOV RO, 61S SETUP MESSAGE ADDRESS FOR APT 
gStie4 004737 054574 ie JSR PC, SATY3 } | SPOOL MESSAGE _10 APT 
pe ae T3e7a7 000040 001231 62S: aire. #APTCSUP, SENVM ABT CONSOLE SUPPRESSED : 
054140 001003 nS BNE ;3YES, SKIP TYPE OUT 
054142 e046 2S: MOVB (RO) +,-(SP) :PUSH CHARACTER TO BE TYPED ONTO STACK . 
OS4144 O01 BNE 4§ toe IF IT ISN’T THE TERMINATOR : 
054146 005726 TST (SP)+ iF TERNINATOR POP. IT OFF THE STACK 
54180 1 60S: MOV (SP)+.RO 
1 35: ADD #2, (SP) UST RETURN PC 
054156 RTI | tt Re URN 
054160 o51498 000011 4§ CHPE  #HT, (SP) tt BRANCH IF <HT> 
beuice 12271 CMPB =e: CRLF, (SP) »:BRANCH IF NOT <CRLF> Ba gies 
peut aa SOS oE aoe (SP)+ £CRD (LF > EQUIV . 
De4i7e 1ON401 TYPE 1 VPe tr , 
beusae siti, 054336 aha SCHARCNT CLEAR CHARACTER COUNT 
Fie, « & foe. eee 
| = G ee 
Deusi4 123726 DOL 196 eS: CMPB sFILLc, (SP )+ $315 IT TIME POR FILLER CHARS. ? 
001350 -: IF NEXT CHAR. 


NO GO GET 


UNIBUS RKO& ORIVE 
OZR6HB.P 


O 
-_— 
a 


O00 0OWWWWWWOWWWW 
0 2 02 Bs hs Bh 0 bo pe fo hh pe pe 
Wifobtattw trp ited apritepet sd 


a8 


SeBSRReES 


NURNRRRNRN 
WONMWU£ We 


3 


8 


SSIS SIS 


il 


OS4eee 





TYPE 
013746 


—-Oooo0o000 
pat Fe Pas bb -- B 


e 


001154 
000001 


OS427e 
054336 
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054336 


124644 
000082 


000002 
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MOV SNULL , -(SP) 
7$: DECB 1(SP) 
BLT 6$ 
JSR PC STYPEC 
DECB  $CHARCNT 
BR 7 
sHORIZONTAL TAB PROCESSOR 
8S: MOVB #’ .(SP) 
93: JSR PC, $TYPEC 
BITB #7, SCHARCNT 
BNE 
TST (SP)+ 
BR 2 
STYPEC: TSTB a$TPS 
BPL STYPEC 
MOVB 2(SP).a$TPB 
CMPB ss #CR, 2 LSP) 
BNE 
CLRB § $CHARCNT 
BR STYPEX 
1$: CMPB  =—s- HLF, 2( SP) 
BEQ STYPEX 
INCB = (PC) + 
SCHARCNT: .WORD O 
STYPEX: RTS PC 


>;GET # OF FILLER CHARS. NEEDED 

*sAND THE NULL CHAR. 

»;DOES A NULL NEED TO BE TYPED? 

»:BR IF NO--GO POP THE NULL OFF OF STACK 
°:GO TYPE A NULL 

bP net COUNT AS A COUNT 


; ;REPLACE TAB WITH SPACE 
::BRANCH IF NOT AT 


SBOP SPACE OFF STACK 

::GET NEXT CHARACTER 

::WAIT UNTIL PRINTER IS READY 

:LOAD CHAR TO BE TYPED INTO DATA REG. 
:?1S CHARACTER A CARRIRGE RETURN? 
*sBRANCH IF NO — 

js YES--CLEAR CHARACTER COUNT 

IS CHARACTER A LINE FEED? 
:sBRANCH IF YES 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
5 5 RRRRRERRK EERE REE E EE EERE EKA K EERE REE AEE LEER AE LE EEE EERE ELAR ERERE 


i THIS ROUT INE IS USED TO CHANGE A !6-BIT 


BINARY NUMBER TO A ay 


(ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
TIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


» *SIGNED me 
**NUMBER IS POS 
-*¥BEFORE THE FIRST DIGIT 
**REPLACED WITH SPACES. 
s*CALL: 
ro MOV NUM, -(SP) 
FS TYPDS 
STYPDS: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV Re, -(SP) 
MOV R3,-(SP) 
MOV RS, -(SP) 
MOV #20200, -(SP) 
MOV 20(SP),RS 
BPL 1$ 
NEG BS 
MOVB #’-, 1(SP) 
1S: CLR RO 
MOV #SDBLK,R3 
MOVB #8’ ,(R3)¢ 
es: CLR Re 


OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


:sPUT THE BINARY NUMBER ON THE STACK 
*°GO TO THE ROUTINE 


SEQ 0172 


UNIBUS RKO6 ORI 
OZREHB.Pi1 


au Devi 


ae 


OS44e6 
6 deus 
aye 


OS4444 
OS44S2 


ee 


O54464 
peauze 
bead 


0S4476 


sans naama apne reneeneurspanesnnnen manne 


teitte- OS4S46 


: 
a 


oe 


Soe 


- 


g& cea 
See pee 


we 
bee fees 


S58 
Ba 


= 
RS 


moO 
ode 


ee 


000010 
177777 


OS4S56 
000002 
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177777 


177776 


000004 
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3$: SUB 


4S: ADD 


S$: ASLB 


7$: BIS 


8$: TSTB 


9$: CLRB 


SCTBL: 


l 
SDBLK: - .BL 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SDTBL(RO),R1 
R1,RS 


uy 
R 
3 
R 


S 
(SP) 
7$ 
(SP) 


top) 1(R3) 
#’0,Re 


#’ Re 

Re, (R3)+ 
(RO)+ 

RO, #10 

2e$ 

BS 

RS,Re 

(SP)+ 
-1(SP),-2(R3) 


»sGET THE CONSTANT 
-sFORM THIS BCD DIGIT 


tT TNCREASE THE BCD DIGIT BY 1 


;;ADD BACK. THE CONSTANT 
*sCHECK IF BCD DIGIT=0 
**FALL THROUGH 

s;STILL DOING LEADING 0’S? 
-°BR IF YES 

> 3MSD? 

sBR IF NO 

>: YES--SET THE SIGN 
;;MAKE THE BCD DIGIT I 

->MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;s;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
ssJUST INCREMENTING 
»:CHECK THE TABLE 


esC TA INDEX 
**GO DO THE NEXT DIGIT 
;;G0 T IT 


-:GET THE LSD 
»:GO CHANGE TO ASCII 
»:WAS THE LSD THE FIRST NON-ZERO? 


SNOW TYPE THE NUMBER 
»:ADJUST THE STACK 


;;RETURN TO USER 


KW OY : 
-SBTTL APT COMMUNICATIONS ROUTINE 


os KELERERLARLERA KLARA FLAAAAA LA REALL AAAAARAERALA LALA LALA LALA AALALEE 
MOV T FATAL ERROR 


aM 
SATY4: 
SATYC: 


_ 


_. MOV 
° TSTB 


#1, SHFLG -:TO T | 
#1,SFFLG ::TO ONLY REPORT FATAL ERROR 

RO, -(SP) ;;PUSH RO ON STACK 

Ri. -(SP) ::PUSH R1 ON STACK 

SMFLG js SHOUL TYPE A MESSAGE? 

S$ 7s IF NOT: 

ROPTENV, SENV is OPERATING UNDER APT? 
#APTSPOOL,SENVM :;SHOULD SPOOL MESSAGES? 

3$ IF NOT: BR 


SEO 0173 





o 


qinapeppeneoa anna snsannseaaaaenaaneosnnemeacunmatenis de 


akc C _PRRT 





Se fooooe ono 
} lel 


337 01224 


001210 
OS4742 
000004 


isle 
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COMMUNICATIONS ROUTINE 


oa ob 





MUV 
ts -SUMP RETURN ADOR. 
1$: rey sade ype SEE IF’ DONE W/ LAST “MISSION? 
BNE is : +4 NOT: T 
MOV SMSGAD T IN MAILBOX 
2s: TSTB (RO) TE IND ND OF MESSAGE 
Sys SISGAD,RO SUR START OF nessace 
= RD GT Be iG sr . N PTLED * : 
nov a4, SHC YPE SPT, ENT , 
3s: MOV a4(SP). 43 ::PUT MSG ADDR IN 
ADD #2, 4(SP) in run SESE 
MOV 177776,-(SP) ; ;PUSH Reece ON STACK 
JSR PC, STYPE ¢3CALL TYPE MACRO 
mf WORD OQ 
10$:  TSTB SFFLG :3SH REPOR T FATAL ERROR? 
TA SERV 3 BF dink UNDER APT? 
BEQ 12$ IF NOT: BR 
118: TST SMSGTYPE -: FINISHED LAST MESSAGE? 
BNE 11§ ssIP NOT: WAIT 
MOV a4(SP) SFATAL ;:GET ERROR 8 
ADD #2. 4(SP) - - BUMP 
on INC CTYPE 227 ret To TAKE ERROR 
cts : tCLEAR Log FLAG 
¢ SMFLG MESSAGE FLAG 
MOV (SP +, RL + POP STACK INTO Ri 
SMFLG: -BYTE p ; #MESSG. FLAG 
SLFLG: . *LOG FLAG 
SFFLG: . 0 tT EATAL FLAG 
APTSIZE | 
APTENV=00 
BPTSPOOL = 100 
INARY TO OCTAL (ASCII) AND TYPE 
ARERSEFESSARESASETEARSLAAERSSERE 
j4TH ah i S ROUT ROUTINE TS USED TO Oh TO eet 16-BIT BIN’ *Y NUMBER TO A Q *E-DIGIT 
ae 0 SETUP SUPPRESS ZEROS wi NUNGER OF DIGITS TO TYPE 
* i "HOV NUM, -(SP) ; NUMBER TO TYPED 
: -CALL FOR OUT 
i erie ssN=t 10 TO b FOR NUMBER OF DIGITS TO TYPE 
: i ,°8 
f ADELE ST foo 
:#STYPON----ENTER HERE TO TYPE OUT WITH a SAME PARAMETERS AS THE LAST 


;;GET MESSAGE ACOR. 








C16 


MACY!1 ‘hikes 01-0CT-76 10:34 PAGE 174 
AND TYP 


DIAGNOSTIC. PRAT 1 


BINARY TQ OCTAL (ASCII) 


ORi 


UNTBUS 
OZREHB. P11 


;NUMBER TO BE TYPED 


;;CALL FOR TYPEOUT 


 eSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;#STYPOS UR STYPOC 
MOV 
TYPON 


s#CALL: 


NUM, - (SP) 


s#CALL: 





3 
ar: . : * m5 : : 
ee ne Be & 
ig 5 8 ES i 6 ES gh 8 
fis Sas g REE: i a0) 

ta. Cr. x< - a tm | | a | —~ — 
tesy Noe On air, te 0 SO” kt = Plz Rin 
ed Es Sec 
S253 UbbSSGs Gebctces Stan Ohetl¥eatas2aooun 


ita. > pM a. 

. = -—— om <4 rat 44 -q — 

4: ee tbs Ea . erase 
ZS=8; a ah s2258 

fa Mins EOE AE SERIO MOOI SY SPE NE wel ORNSE Nae 


BepGarerShe veer i ddadeeb gue staester wuueaBeSee 


wo 
| 


6$: 


sees GEs gv: BME 

SS SL cer een GE 

Fetatet t= betetetatatatet-t petetat-tofaf~t=1- fat ~ ta =5 Saacs 

fecuae rite trttcetricricretene es oman ys MUNA 
Mantanidanitned intended ata 














LMR SSeS inibhniniaannn te tee teed 


—" 2 oo a) Se. eee... ee em a ee OF em ee eee =_ «2 = 








— = © ew am eww ee oe Ce 


HE 

g te 
a 
a 

g 

wm 


Erez 222222 
ODNIBUI£ iwfur-O 





PERT ESET ODROESS GEA EE AaB ARNE ORRE CORTON ES 
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000176 001140 


123646 
123642 


001134 


056147 
056154 


000001 


1 
000176 © 


056165 


123504 
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AND TYPE 


Ril 
.BYT 


BYTE 
BYTE 
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Oooo 


SOCNT: . 

SOFILL: . 

f : WORD 

.SBTTL TTY INPUT ROUTINE 


"ag grermagcnense pi commuemape ager erie cronies 


 EREEEEEY XL REREEEEESEEGEAEES ESE EEEE RELEASE EEE RLESEEEEREELELS (44% 


: SOFT ‘ARE SWITCH SERN The CHANGE ROUTI 


aa eR pe ROUTINE 


;;OCTAL DIGIT core 


;;2ERO FILL 
; ; NUMBER OF GiTS TO TYPE 





re Sect dice: “Fun ee sre auttcH "REGISTER. TRAP CALL’ 


 §GTSUR: 


STB 


fai! area 


Be gape 


CMP 
TYPE 
ADD 
aR 
CMP 
tt 
st 
ADD : 
TYPE. 


ie 
TKS 

15$ 
dSTKB,-(SP) 


tae (SP) 
SP}+ 


sro, , #1 





RETURN TO 


i, WE eet le RuMTN TH RUTO-HOOE? 


;;ECHO THE CONTROL-G (?G) 
33 TYPE CURRENT CONTENTS 

;SAVE SWREG FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS) 
;;PROMPT FOR NEW SWR 






HAR 
sIIF NOT TRY "AGAIN 


3 sPICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


-:IS IT A CONTROL-U? 

::BRANCH IF NOT 

;}YES, ECHO CONTROL-U (tU) 
IGNORE PREVIOUS INPUT 

LET'S TRY IT AGAIN 


i318 17 IT A Ay 


pote Ts. me NTH FIRST CHAR? 


+ Pea OP TACK 
*sECHO <CR> AND <LF> 
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OZREHB.P11 ‘ery PUR ROUTINE SEG 0177 
9465 OSSY44Y 123727 001135 000001 CHEB SINTAG, #1 + sRE-E AB TY KBD INTERRUPTS? 
auge Reeyed 4993 000100 123462 MOV Ado, asTKs Hie: NAB £ HY KBD INTERRUPTS 
en a a ese 
l CMP (SP), #60 ::CHAR < 0? 
94 74 BLT 18$ - > BRANCH If YES 
94 000067 CMP (SP), #67 CHAR > 7? 
Q4; 15 BST 18$ :: BRANCH IF YES 
9474 000060 BI #60, (SP)+ » -STRIP-OFF ASCII 
S75 19 5766 000002 rst e($P) 22 TS THIS THE FIRST CHAR 
ea Does ASL (SP) $F a FT 
+ a l ASL (SP) ee OVER TO MAKE 
o4 006316 ASL (SP) + ROOM FOR NEW ONE. 
9480 005266 o0000e2 17$: INC 2( SP) :*KEEP C OF CHAR 
9481 056616 177776 BIS 5g(SP), (SP) sFSET IN NE CHAR 
au85 peers pHa] 901204 188: TYPE SQUES : > TYPE MCR ts, 
9484 o55S42 000720 BR 20$ -: SIMULATE CONTROL-U 
: euee — 
G==8 3: SFFSSEHESFSESSSASEREEFESEF REE FES SEEE EERE ESE SER ESE ESERSS ELESHE FED HE 
ois s ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
949] -#  ROCHR -sT A SI CHARACTER FROM THE TTY 
39492 3 RETURN HERE se IS STACK 
433 * >:WITH PARITY BIT STRIPPED OFF 
ayee , 
o136 SROCHR: MOV (SP). -(SP) PUSH DOWN THE PC 
MOV 4(SP),2(SP) 8 THE PS 
9498 15: Bre «te 3 HAL FOR 
00 3 MOVB § a$TKB,4(SP) bean ’ pi 
1 BIC 8tC<177>.4(SP) 3:GET RID OF JUNK IF ANY 
Be 00027 CMP 4(SP), #23 + i IT A CONTROL-S? 
as: Se Bus EA Fal ser 
ad MOVB 8, -(SP) 8 
een BIC #10177, (SP) es IT 7-BIT ASCII 
CMP (SP)+, bel -:IS IT A CONTROL-0? 
2203 BNE es :31F NOT tire IT 
951 000140 3S: CMP 4(SP), 8140 8 CASE? 
Sie BLT 4§ 8 IF YES 
213 000175 P 4<SP), #175 21S J A SPECIAL CHAR? 
Sis 000004 - bic #40,4(SP) -°MAKE IT UPPER CASE 
9517 8 PETTITTE TTTTTTTTTETTTTT TTT TTTT TET ICT TSTOSTST STOTT TTT TTT TT 
18 **THIS ROUTINE WILL INPUT A STRING FROM THE TTY 





:%  ROLIN :: INPUT A STRING FROM THE TTY 
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DZR6HB.P11 TY INPUT ROUTINE SEO 0178 
$521 i RETURN HERE »sAODRESS OF FIRST CHARACTER WILL BE ON THE STACK 
: : TERMINATOR WILL BE A BYTE OF ALL O’S 
ees OSSEEY 010346 SROLIN: MOV R3, -(SP) SAVE R3 
9525 OSSEbE 005046 CLR -(§p) CLEAR THE RUBOUT KEY 
01 956120 1S: MOV aSTTVIN R3 GET ADDRESS 
74 0S6! es: CMP S$TTYIN¢+2e,R3  ;:BUFFER FULL? 
eh am ti BF READ ONE CHARACTER FROM THE TTY 
ae53 Beeson iieels (Sp)+,(Rg) 
9531 05708 122713 000177 10S:  CMPB 48177, (R3) -:1S IT A RUBOUT 
Ss fet ie ae 
x 14 I S (SP) TS THIS THE FIRST RUSOUT? 
9S34 16 00 BNE $ BRI 
25 l 900134 OS611e HOVE #’\,9S 8 A BACK SLASH 
w27 16 ae my Ct« 1, (SP) T THE KEY 
—— ~ = ee 
Se 6S: DEC RB” : BACKUP BY ONE. 
9539 ) CMP R3, sSTTYIN :=STACK EMPTY? 
9c4ug BLO 45 -:BR IF YES ‘ 
gsi MOVB  (R3),9S -:SETUP TO TYPEOUT THE DELETED CHAR. 
Sie TYPE ag ::G0 TYPE ) 
gS4 BR 2$ ::GO READ ANOTHER CHAR. 
gsuy SS: TST (SP) + 
QS4s . BEQ 7§ 
9546 il 056116 MOVB 8’, 95 
9547 1 TYPE 33 
28 i CLR (sp) 
1 1 7S: CMPB =s-s«#25, (RB) ? 
= tig hee sgomruy 
00076 us BR is oe 
acey i a 
9655 4 CLRB R3) SRACTE 
eee 104401 TPE » SeRLTN 
accg 000717 BR 2$ ANOTHER TER 
3655 4S: TYPE Ss: 9 
566 BR { -:CLEAR THE BUFFER AND LOOP 
é 3S: MOVB = (R3), 9S CHARACTER 
CNPE bie, cras 
BNE 25 
CLR -1(R3) 
SLF 
TST tSP+ 33 CLER KEY FROM THE STACK 
NOV (85) 1p) t ABust THe STACK AND PUT ADDRESS OF THE 
000002 MOV 4(SP}.2(SP) 8 FIRST ASCII CHARACTER ON IT 
000004 HOV eSTTYIN, 4(SP) 
RTI 33S Tenn 
9S: .BYTE O ::STORAGE FOR ASCII CHAR. TO TYPE 
ry “ey 0 ee INATOR 
TTYIN: .BLKB 22 FRESE AVE 22 BYTES FOR TTY INPUT 
TLU: .ASCIZ /tU/<15><12> *sCONTROL “U” 
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TY INPUT ROUTINE _ SES 0179 


i: 





9577 056147 136 S07 000012 SCNTLG: .ASCIZ /tG/<15><12> — ;;CONTROL “G” 
oe 056154 l 3 OeQlee SMSWR: .ASCIZ <15)><12>/SWR = / 
9539 OSs es enh. pu7a4e OS350S SMNEW: .ASCIZ / NEW = / 
2581 Beet 036440 ocoo4o — és 
so8e .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
go 24 3 FEFESEFESEELHESREREERESRFE FRE FEE SESS EEEERE ELSE EAE RERRESLESL ESE SLE 
9585 ab sATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
seg -#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
sone STOOL OWED BY A CARRIARE RETURNCL INE FEED” THE COMPLETE HUMEER MUS? 
520 : *THEN RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
ge ae RDOCT ::READ AN OCTAL 
ag i RETURN HERE -:1 OW ORDER BITS ARE ON TOP OF THE STACK 
oe * : > HIGH BITS ARE IN SHIOCT 
2x 011646 SRDOCT: MOV (SP). -(SP) »sPROVIDE SPACE FOR THE 
16666 000004 oc0000e MOV 4<SP) (SP) -: INPUT NUMBER 
3598 010046 MOV RO, -(SP) *:PUSH RO ON STACK : 
9699 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
9600 10246 MOV Re. -(SP)  *3PUSH Re ON STACK 
960 104411 18: RDLIN :*READ AN ASCIZ L 
alone? HOV {SP)+,RO i3GET BODRESS OF 1ST CHARACTER 

9604 Bove | oe Bee ; ;CLEAR R DATA WORD 
oe tee hes sR goemcse) etre Tg ganar 
Sn fea bee, ea 
9610 1ee7 18 000067 CMPBOsé8'’7,, (SP) “a 
$1 So . 
eis 506 OOe Ne ROL Ro ag 
Q614 O56 of ASL RI ey 
9615 0061 ROL Re 
Sib nate ASL Rl oT: 
sie 16 177770 are #1C7, (SP) »:STRIP THE ASCII JUNK 
9619 062601 ADD (SP)+ Ri -:ADD IN THIS DIGIT 
ost pep 7g pee ae 3$ Re (SP)+ +. NATOR FROM STACK 

056276 0101 00912 HOV RI, 12(SP) -:SAVE THE RESULT 

Gene ot MOV REA} Re »:POP STACK INTO Re 

056310 012601 MOV (SP)+-Ri *:POP STACK INTO RI 
$27 pees Hoy (SP)+, RO + TACK INTO RO 

"56316 4 fat (SP)+ -*CLEAN PARTIAL FROM STACK 
os i pet tay (RO) SET A TERMINATOR 
est Sb3ce 1 1 cs, 5 -: TYPE UP T THE BAD CHAR. 
932 ter t 001204 TYPE Hy , SQUES .mou CRM BML EM 
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MACY11_27(732) 


SHIOCT: 


.WORD. O 
.SBTTL DOUBLE LENGTH BINARY TO ints 


ge gir pi lg gh tlc lg 
T A 32-BIT UNSIGNED NUMBER TO AN 


ATH 


SOCTVL: . 


» SBTTL 
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TH BINARY TO DECIMAL 


TAL ASCIZ NUMBE 
MOV SeNTR -(SP) 
JSR , a8$0820 
RET 
SAVREG 
MOV 2(SP), RI 
MOV SSOCTVL+13. ,RS 
MOV #12. ,R4 
MOV #1C7.R3 
MOV (R1)4+, RO 
MOV (R1)+,R1 
CLR Re 
MOVB  Re,-(RS) 
MOV RO, Re 
DEC RY 
2 
inc ORE 
MOV RS, 2(SP) 
RESREG 
RTS pc 
ASR R3 
ROR RI 
ROR RO 
ROR RI 
ROR RO 
ROR R1 
ROR RO 
BIC R3,Re 
800 #’O, Re 
1S 
BLKB 14, 
SINGLE 
S ROUTI TNE 
DECI 
MOV ) 
JSR sa rhe 
RETURN 
MOV ) 
MOV a8, 138) 
JSR 
ADD ae ta 


GH SRE BLTS 00 HERE 


BINARY 


;;POINTER TO LOW WORD OF BINARY NUMBER 
;;CALL THE ROUTINE 


SEQ 0180 


;; THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


:saONE ALL REGISTE 


RS 
; sPICKUP TER 10 Dat been ie TO LOW WORD 
: POINTER TABLE 
3 ACTER 
«MASK 
| 
: : TERMINAT 
ee N DATA TABLE 
ie 


INTER FOR FIRST 
STACK 


LAST DIGIT 
FOR . 





v0 
a 
+4 


» » MASK 
» > MAKE I 

:°GO PUT IN THE DATA TABLE 
s >RE DATA TABLE 

IZ ROUTINE 


sJolghsb-b-lob-tob-dohob-t-b-Lolelet-ti-tetettob-ttebdeieibebdedttt5-+-5-$0 
E HILL CON MILL COWERT a po-SiT UNSIGNED BINARY NUMBER TO AN 


: PUT, BINARY NUMBER ON THE STACK 
::ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


; s SAVE BINARY NUMBER 
$3 T POINTER 

sCALL DCUBLE LENGTH CONVERT 
: :ONLY ALLOW FIVE CHARACTERS 
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NARY TO DECIMAL ASCIZ ROUTINE 


MOV -«(SP)#,2(SP) — s:PICKUP POINTER 
RTS BE SIRETURN: 


1$: -WORD 0QO,0 
.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5; LARERAEAELALALLALARARARELAAALAA LAL ALELE RAAAAAAALAAAAARALAE SEALE 


SEO 0181 








-&THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO 
s*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
s #POSITIVE. 
* MOV #PNTR, -(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
* JSR PC, as$DB2D 
: RETURN -: THE FIRST ADDRESS OF ASCIZ 
9702 *:IS ON THE STACK 
oop 
9705 104413 $082D: SAVREG - SAVE REGISTERS 
9706 16602 p90002 MOV 2(SP) Re ::PICKUP THE DATA POINTE 
9707 12700 9565 MOV #SDECVL, RO °:GET ADDRESS OF * STRING 
9708 10066 000002 MOV RO, 2(SP) *:PUT ADDRESS OF ASCIZ STRING ON STACK 
3703 bl sete HOV (Re) +R >:PICKUP THE BINARY NUMBER 
9711 1 o00012 OS&610 MOV #10. 4 >:SET UP TO DO 10 CONVERSIONS 
aie b1e704 Osbbee MOV SSTNPWR,RY - =:ADDRESS OF TEN POWER 
971 l MOV #STNPWRS2, RS 
9714 005003 1$: CLR R3 - s 3CLEAR PARTIAL 
at es: a8 (RY) ,R1 »: SUBTRACT TEN POWER 
1 R2 7 
971 SUB (RS) Re 
9718 BLT 3$ -:BR IF TEN POWER TO LARGE 
‘ at ar Ty TO PARTIAL 
062401 3S: p00 CRY)+, RI -:RESTORE SUBTRACTED VALUE 
ADD (R4)+, Re 3 
CMP (RS)+. (RS)+ >:MOVE TO NEXT TEN POWER 
000060 BIS #083 30H PARTIAL TO ASCII 
# DEC (Pee + BONE? Ys 





HPPED ERIS EARAS SST 
Soe 


| 
| 
| 
| 
| 
| 
| 


STNFWR: 


com od 
—— 

oo 

& 


ss F _* ‘ 
tFERHINATOR tT aes ana 
;;RESTORE REGISTERS 


+21.0£09 . “ x 



















ORIVBOUBLE LENG 4 BINARY TO SU EH + ROUTINE: a oe 


. 1750 °:1.0E03 
iw -:1.0&02 
le -:1.0E01 
t >:1.0E00 
SDECVL: .BLKB ile. SERVE ST ORAGE FOR ASCIZ STRING 


.SBTTL TYPE NUMERICAL ASCIZ strife. SUPPRESS LEADING ZEROS 

. STNIG ROUTINE 16 USED [0 TYPE AN ASCI? NUMBER GUPPRESGING THE 
**THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
 ELEADING NUMBERS. 


*#CALL 
, BNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
* JSR PC, J8$SUPRS 


: ae , 
SSUPRS: MOV RO, -(SP) Hat 
000004 MOV 4(SP) RO $3 IcKUP THE POINTER 
1S: TSTB —s_- (RO) ; 3 TERMINATEOR? 
BEQ 2s -BR IF YES 
000060 CMPB = #0, (RO) + +18 THIS AN ASCII “0” ? 
BEQ Ss sd -BR IF YES 
2$: DEC RO | BaKUe BY "1" 
056736 HOV _ RO,3S ;SAVE FOR TYPING 
33: .WORD O Hae POINTER GOES HERE 
MOV (SP)+,RO ST 
HOV (SP)+’ (SP) + ;RESTORE THE STACK 
PC RETURN 


grag gttnenennenenrnnsnnerenrnemnenenanon 
+ 


"_SAVREG 
{UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
t STOP===( 416) 
i 8) 





K 
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9801 OS6762 016646 000022 MOV 22(SP),-(SP)  ;;SAVE PS OF MAIN FLO 
3908 056768 D1b ub poogee MOV ge (SP), ~(S6) a.) PC OF HAIN FLOW 
166 MOV (5P)’-(5P)  +::SAVE PS OF CALL 

9804 056776 016646 000022 MOV 22(SP),-(SP) ;;SAVE PC OF CAL 

3808 057002 000002 RTI 

9807 s#RESTORE RO-RS 

$808 »*CALL: 

9803 ° 3 RESREG 

$810 057004 SRESREG: 

9811 057004 012666 o00022 MOV (SP)+,22(SP) ; RESTORE PC OF CALL 

e812 057010 01e666 000022 MOV (SP)+ 22(5P) + RESTORE PS OF CALL 

813 057014 12666 000022 " (SP +, 2e(SP) s SRESTORE PC OF MAIN FLOM 

apie be ross 1SPRe a M (2p)+' RE it BBB ORE ok INTO ct 

7 ai sete oe tte fis. arte a RY 

aeia pertae Bisens NOY CRP} a° RS iB Op Brack INTO Re 

9819 057034 012601 (SP)+ RI »:POP STACK INTO R1 
057036 012600 MO (SP)+,RO -:POP STACK INTO RO 
0s7040 000002 RTI 


.SBTTL TRAP DECODER 
$ ; LERLLALELLELLLLLLELELELLLALL LAL LLLEELLELELELALLELLLELELELALEELE 


; #AND i TO INDEX THROUGH THE TRAP TABLE FOR THE 
;#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#GO TO THAT ROUTINE. 


OS7042 O01 STRAP: MOV RO, -(SP) SAVE RO 

057044 Bt bos ooco0e MOV 2(5P) RO °:GET TRAP ADDRESS 
005740 TST =-(RO) ::BACKUP BY 

I570S2 111000 MOVB (RO), RO °:GET RIGHT BYTE OF TRAP 
perp? pueate Ray tS TNDEX 70 TABLE 
057056 016000 057076 MOV 5 (RO),RO 331 OT 

057062 000200 RTS RO -:GO TO ROUTINE 


;; HIS IS USE TO HANDLE THE “GETPRI” MACRO 


AERA SSSSOSES SRR R RA RARE RRR E SERS 


011646 STRAP2: MOV (SP). -(SP) »:MOVE THE PC DOWN 
057066 O16666 OO00004 MOV 4(SP},2(SP) -:MOVE THE PSW DOWN 
7074 00000e RTI S RESTORE THE PSW 
.SBTTL TRAP TABLE 
-#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
-#BY THE “TRAP” INSTRUCTION. 
ROUTINE 
057064 STRPAD: .WORD S$TRAP2 | 
oe?! OS4O60 STYPE ;:CALL=TYP TRAP+1(104401) TTY TYPEOQUT ROUTINE 
1 STYPOC ;:CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
057104 055034 STYPOS ;:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
057106 055074 STYPON =;CALL=TYPON  TRAP+4(1044O4) TYPE OCTAL NUMBER (AS PER LAST CALL) 


eer ue —_—_——- — ~~ = - 
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SEG 0184 

9857 057110 os4342 STYPDS ;;CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
apes oS7112 055332 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
oer 057114 oSS262 *  SCKSWR ;;CALL=CKSWR = TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
epee 057116 oOssS44 SRDCHR ;;CALL=RDCHR j§§ TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
9863 0571 3 955664 SROLIN ; ;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
9864 OS7lee 056176 SRDOCT ;;CALL=RDOCT  TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
3865 orig OS 746 SSAVREG Carl =CavREG TRAP+13( 104413) SAVE RO-RS ROUT 

1 GY SRESREG ;;CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 

057130 052736 SCOP1$ ;;CALL=SCOP1 | TRAP+15(104415) INTERNAL LOOP ON ERROR 


SEG 0165 
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9981 060230 042524 MSG6: .HSCIZ <CR<LF>/INTERRUPT OCCURRED AT PC=/ 


060236 


st 


ges 


pant <7 We Fert 


: poabdt MSG7: .ASCIZ <CR><LF>/DRIVE O WILL NOT BE TESTED 
117 
O4eSe4 
1 000 


pigee? MSGS: .ASCIZ <CR><LF>/PLEASE WAIT, TEST 16 TAKES 2 TO 4 MINUTES/<CR><LF> 





=e 
1 
i 
" 0Sel 
hee 0S21 
; ' Diss } MSG9: .ASCIZ <CR><LF>/BYPASSING TEST 16/<CR><LF> 
l 
033061 
: MSG1O: .ASCIZ <CR)<LF><LF>/WILL TEST DRIVES:/ 
tet 111 
pasel? MSG11: .ASCIZ <CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF> 
pede 006461 
it GOSOIS MSGle: .ASCIZ /NONE/<CR><LF> 
3 0201 


17 MSG13: .ASCII <CR><LF>/NO L OR P CLOCKS PRESENT/ 
itt eASCIZ <CR><LF>/ALL TIMING TESTS BYPASSED/ 


MSG14: .ASCIZ <CR><LF>/BYPASSING DRIVE / 


oe 
Cre 


MSG1S: .ASCIZ <CR><LF><LF>/DRIVE / 
(CR><LF>/DRIVE SERIAL NO. / 


se tf 
: 


(CR><LF>/CARTRIDGE SERIAL NO. / 
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UNTBUS 





(CR><LF><LF>/ABORTING BALANCE OF TESTS/<CR><LF><LF> 
(CR><LF><LF>/ALL ORIVES TESTED/<CR><LF><LF> 

(CR? <LF>/RUNNING MODIFIED VERSION OF FORMAT PACK TEST/ 
(CR><LF>/TO RESTORE HEADERS CN CYLINDER 0 8 1, ALL TRACKS/ 
(CR><LF>/BYPASSING TESTS 36,40 8&8 41 FOR MODULE TESTING/<CR><LF> 
(CR><LF>/ERROR, ONLY O THRU 7 ALLOWED, TRY AGAIN/<CR><LF> 
/SELECTED DRIVE # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2/ 


(CR><LF>/FOR MODULE TESTING/<CR><LF> 


ASCIZ 
ASCIZ 
ASCII 
ASCII 
ASCIZ 
MSG21: .ASCIZ 
~SBTTL ERROR MESSAGES 
ASCIZ 
ASCIZ 
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ERROR 
000 
066504 
002 
eee: 
970675 

000 000 
ee 
006 000 
oo: 
002 O00 
066 
ne 
001 000 
me 000 
066504 

002 ©: 
066735 

007 O00 
066572 

002 O00 
002 O00 
071206 

005 ooo 
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DF 17: 


OF 18: 


DF 19: 


OF el: 
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-BYTE 0,0 
-BYTE 2,0 


0,0 
0,0 
2,0 
6,0 
0,0 
2,0 
7,0 
1,0 
0,0 
2,0 
7,0 
2,0 
2,0 
5,0 


SEQ 0205 
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DZR6HB.P11 © ERROR DATA FORMATS | SEQ 0206 





‘ie Ser Weak Aen GRRE nen en nr a ad 
Los bath I Ry Joe RPC, TYP ERR 

11006 

11007 iSTuIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
11008 -#ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE” (S$ERRTB) 
11003 sMENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 

] 19 5 jSERSHEORESDESEREREEEEHETEESERSEEOHEEEREREEREEEREREREREEREREHED 
tits 575150 37H 001114 HERR Rove. SITEMB, RO R 

11014 72134 Ou700 177400 BIC #177400, RO Shem ae ENTERETON 

11015 140 DEC RO INDEX FOR ERROR TABLE 

tioi? B7Si4a | QOeSOD aac 

11018 72146 606300 ASL RO 

11018 1 004454 1S: ADD #SERRTB, RO : FORM RODRESS_ OF ERROR ENTRY 
11020 072154 012037 972170 MOV (RO)+, 2$ <GET EM PO 

Lidee Gréiee 1b0t 001205 Tree , SCRLF Wee cal Lea ict ih ‘LINE NE FEED 
1] 1 25: .WORD 0 tM B ONTeE epee Pe HERE. 

11BSe B51 50 1 072206 3$: MOV (RO)+, 4S <GET DH POINTER 

110e% 72176 001404 BEQ +3 ‘BRANCH IF THERE ISN’T ONE 

t1028 O7SomM lomo Olee Ls EE sarees i TYPE BATA HEADER 

11029 072206 Oo0000 4S; .WORD OO DH POINTER G0e GOES HERE 

11030 97e210 D1e001 cS: MOV (RO)+,R1 

11031 1 1455 BEQ 20$ : BRANCH TE THERE ARE NONE 

11032 reels p05004 CLR RY ‘SET INDENT SWITCH 

11033 16 012000 MOV (RO)+, RO <GET OF POINTER 

11034 O72220 O12002 MOV (RO)+'Re “STORE NUMBER OF DH’S 

11035 072222 O14 BEQ 17§ 1S O-BRANCH 

11036 072224 104 COM RY } NT 


2 
5 


i Doe 


bas 


Sot bs bo bo fm fm b--* — Bae fe Bs Pie Bo pe 


SSepRRer aca suauiuiidanrcrernrer er 


be 6 = 0 Bb = = fh bs he ps Fb = a he he hth he pe 
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TYPE ERROR ROUTINE SEG 0207 
104401 001205 TYPE SCRLF 
il 10$:  MOVB tRO) +,R3 -GET & STORE NUMBER OF DATA WORDS 

057 TSTB = (RO) + *BUMP PAST FORMAT W 
TST R3 -TEST IF ANY DATA FOR THIS HEADER 


14§ ;NO_= SKIP DATA PRINT 
118: MOV 3(RL)+, -(SP) ‘PUT FIRST DATA WORD ON STATK 


~ 
£ 
w 
m 
© 





Ota TYPOC T 
nieere DEC R TIPE bat WORDS 
001403 BEQ 14$ : NO- H 
1 072402 TYPE 1 SEACES “TYPE SEPARATORS 
00530¢ 14$: DEC Ro “MORE DH’S? 
31 BLE 20S : NO-BRANCH 
e7EA HotnoS tere steny Y A DH IN THIS REQUEST? 
eatin Q S$ OES BRANCH  BYPA 32 INDENT 
rift BNE. CSS . ‘ 
104401 - 972402 BNE SPACE2 -YES-TYPE SPACES 
012037 072314 1S$: MOV (RO)+, 16S <GET NEXT DH POINTER 
104401 TYPE ‘TYPE DH 
000000 16$ “DH POINTER GOES HERE 
105710 TSTB = (RO) “TYPE A DT? 
1 21$ ; YES-BRANCH 
062700 o00002 ADD #2.RO - INCREMENT DF POINTER 
000754 BR 14$ -SEE IF END OF DF BLOCK 
04401 001205 21S TYPE SCRLF 
00574 TST RY : INDENT? 
1335 BNE 10$ : NO-BRANCH 
072402 17$: TYPE SPACE2 -YES-TYPE SPACES 
BR 10s L 
104414 20$: RESREG 
rate 010000 106562 B ! s5W12, 2SHR sBORT DRV AFTER 20 ERRORS? 
001103 oo00e4 CMP SERFLG, #20. “ELSE SEE IF 20 ERRORS 
001004 BNE “BR IF 
012706 001100 MOV #STACK, SP “ELSE RESTORE STK 
000137 047164 a. INP SEOP “AND DROP DRIVE 
020040 000 SPACE2: .ASCIZ/  / 2 SPACES 


& 
aes 


3 


a 


3 


fh Ps B= b+ Pe Pan 
= = 

yates = 4 
pate 


pm b+ eo Bb he pe bs ee Be = Bo Be Ba ba = Pe Fs b= = = bs hs bh bh he bb be be 2 & 2 Bs Bao P< Bs hs bo hs 0 bs ns pe Be pes hee bt pee fo fae Ps pe pie 
Bat ban Bus Bae pene Bann dae Re bs at bes fF -3 h se Ge ht Be Pt ft me be 8 Bo pee be he ee hs he be Pe fh Pe foo hee bs pee Bae bs BB oe 9909959506 — 
SEGRRPOR OSE GRRE 


Bt b+ bs bs ph Pa Be hs bs bs bo Bo fe bs ho Be ht 8 fF tS pt > 2 fh ht = pe Pm Be Be es 
SHB BONER O00 Von cFwn-OBD Ven LORS 
— » K—OWOnNOu£wre-O -_ 
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Pll TYPE ERROR ROUTINE ’ ' ” —_ SES 0208 


; ODT-11 -- VOOSA 
; DEC-11-U0DPA-A-LA 


: OF Siar TAL EoUfere Nt CORPORATION 


it bent 
eer L 
072406 “EVEN 
072466 | .=.+60 
000000 RO = %0 : REGISTER 
000001 Ri = %1 : NAMING 
oo000e2 Re = Ke : CONVENTIONS 
BBDOES RY = 74 
p0000S RS = 4S 
000006 SP = %6 
000007 PC = “7 
177776 ST = 177776 -STATUS REGISTER 
000014 O.TVEC = 14 sTRT VECTOR LOCATION 
000340 0.STM = 340 ; PRIORIT Y MASK - STATUS REGISTER 
000020 0.1T8T = 20 -T-BIT MASK - STATUS REGISTER 
o00003 TRT = oo0003—Cti TRT INSTRUCTION 
0000065 RTT = 000006 IRTT INSTRUCTION 
: RS IS USUALLY CONSIDERED SAFE THE HE CURRENT ADDRESS WORD 
: RESIDES IN IT. AFTER RA. BREAKPOINT IT 1s SET SET To ERO ERO, AND AND SEARCH 
: BE aes, OBS CEBT FoR Je JSR’S AND THE CURRENT RDORESS PO AOIRTER OAD. 
177562 6.R0B = 177562 ;R DATA BUFFER 
177560 O.RCSR = 177560 3;R C/SR 
177566 0.108 = 177566 it DATA BUFFER 
177564 0.TCSR = 177564 :T C/SR 
4 
: INITIALIZE 
> USE 0.0DT FOR A NORMAL ENTRY 
: USE 0.0DT+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS 
> USE 0.0DT+4 TO RE-ENTER (I.E. - FAKE A BREAKPOINT) 
ee bors gaa teem 
013737 177776 O72446 O.ENTR: MOV ST,0.UST sRE-ENTER <= SAVE STATUS 
Biarsy ovens eve HOY a TveCse ST BET UP bOcaL STATUS 
000137 073644 IMP 0.BKi ' 


i i: ek a oe oe 





D037 O.RST: J O.RSTL Eee et ae —_ 
ithe pues 177716 Nov 8 Oth 50. ADRL Fa EMDVE The BREAK-OINT 
113704 072450 VB  0.PRI,RY GET ODT PR 

106004 RORB RY : SHIFT 
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Were Ran Ga 
feme fms pao 


2 he bh ba he pe pe Be 


of fe 


SRE GRRE 
so 


G0 UF LGR Gow Neu Lear toe OE 


ba | 
— 


bs hp 2 Bb b= bs bb B= be bh Be fh bt bt bee Bb hb Bo be ef =o bs he be et be bo be fee Bane fame me Bs fe be Bs fe bo fs Be Po ps Pe —s 
= & = b= b— b= b= b— b= 9 B= 6 b= = = = bb = bb bb 0 BB P= = 2 = 8 bf bb fh bb Bh bp bh bb fb bp pe pe pe 


BB bt BH = bs bs bs bs be Bh be Be tt mh Bs ho Pe Bn bt be = be he Bm pe b= bh hs Bs fo es be Rs Pe Be pe be ow Hs mH ee 


(DED NOU E cofo Os OU e 


pene 


ERROR 


reo 
11 


177776 


000002 


37 07447 
00034 


37? 073634 


— Sa ~- 


074420'- »- 


073160 


ROUTINE 


073554 


000016 
000014 


074534 072460 


MACYi1 27(732) 


RORB ss RY 
ROR RY 
MOV R4 ST 
O.RSTI: SNP (PC)+ 
MOV SRT, O.RTIT 
0.45: CLRB  0.P 
MOV #0.STM, 0. vEct2 


MOV #0. BRK, 0. TVEC 
BR 0.RALL’ 


; SPECIAL NAME HANDLE 
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stars 


;SET TO RTI IF 11720 OR /O05 
:DISALLOM PROCEE 

sSTATUS WORD TO TRT VECTOR + 2 
PC TO TRT VECTOR 

;CLEAR BREAKPOINT TABLES 


R 
DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES O.TL AND 0.URO 


-SPECIAL NAME, GET ONE MORE CHARACTER 
:TABLE START ADDRESS 
315 THIS THE CORRECT CHARACTER? 


‘15 THE SEARCH DONE? 
sBRANCH IF NOT 
:MASK OFF OCTAL 


;GENERATE ADDRESS 
BS rind NEXT CHARACTER 
CORRECT CONSTAN 


s;CURRENT ADDRESS IN Re 


: MOVE ONE BIT TO CARRY 
ERROR IF ODD NUMBER 

; RESTORE WORD 

; AND INCREMENT SY TWO 
sUPDATE CAD 


A.REGT: JSR S.0.GET 
MOV 6.TL,RY 
O.RSP: CMPB (R4)+ 
BEQ SP 
BH 0.RSP 
BIC #177770, RO 
MOV RO,R4 
0.SPl: ASL 
ADD #0.URO,R4 
INC 
BR 0. SCAN 
0.SP: SUB #0. TL-7,R4 
BR 0.SP1 
* # HANDLER - OPEN INDEXED ON THE PC 
b.ORPC: JSR PC,0.TCLS 
AbD REY Re 
ASR Re 
BCS 0.ERR 
ASL Re 
TST (R2)+ 
MOV R2.RS 
JMP 0.OP2 


GO FINISH UP 


; B HANDLER ~ SET AND REMOVE BREAKPOINTS 


6.BKPT: TST R2 
BEQ 


R4 
BCS 0.ERR 
ASL RY 
MOV R4,0.ADR1 
BR 0.DC0 
O.RALL: MOV #0. TRTC,0.ADRI 
BR 0.DCD 


! COMMAND DECODER - ODT1I 
’ 


REGISTERS RO-R4Y MAY BE USED, 


;IF_NO NUMBER TYPED 


REMOVE BREAKPOINT 
;CHECK IF ODD 
JUMP IF ODD 
RESTORE ONE BIT 
sSET A BREAKPOINT 


sCLEAR BREAKPOINT 


SEQ 0209 


a ——_—— ——— ee oF OF ee 2 ee eee ee 


: 


b= >= b= & + B—= p= —-- p= b= 9 > 

> -6-- >-- 6 + B= p—= p> p— p< p= 

Dib VOU Lote 
oo 


a 


tat tei stoi: 


rururururururururory 
Ob Ob ee 
WOnU £ WHC 


Ob 0 bb 0 0 0 be 0 8 0 8 = 0 0 be be bo = bs 0 2 he «= bo 2 be bb pe pe he 
e— 6 6 = bo & = 8 = = Ps Be BB = = 2 + be eh + + bh BH = = DP b= PD > b+ 2 HH 2 He 


EGA SIVA ESET SS NPs 


oz 
3 


Greig Bie7o0 


oe 


SR 
aXe 


Cie 


es 


ined Ene 
NoOLoOR SM 


oa 
a 


Shr ee 


a Bs 


-8 
eS 


11 
1 


NSLNe swoF 


OG hb + hb es Bs B- B  R 


Sodssaosas 


ae 
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074210 


MACY11 27(732) 
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SEG 0210 


: REGISTER RS WILL BE CONSIDERED SAFE 


b. ERR: 


0.DCD: 


0.DCD1: 
0.SCAN: 


O.CLGL: 
O.LGLI: 


0.LGL2: 


4 Lor: 





BIS 
MOV 


a2 


2 
m 


Sar 


_—- © 


area 


0. 
0 
0 
C 
0 
0. 
8 
0. 
= 


US RE EVERYTHING 
8’? RO TYPED 
S,0.FTYP : OUTPUT ef 
5°0.CRLS ; TYPE <CR><LFD# 
R4 » RY CONTAINS THE CONVERTED OCTAL 
R2 - Re IS THE NUMBER FOUND FLAG 
5,0.GET A CHAR, RETURN IN RO 
#’O.RO : COMPARE WITH ASCII O 
0.CLGL * CHECK k LEGALITY IF NON-NUMERIC 
#’7 RO -COMPARE WITH ASCII 7 
0.cLGL *CHECK LEGALITY IF NOT OCTAL 
#177770, RO ‘CONVERT TO BCD 
4 : MAKE ROOM 
a ; mn 
RO, RY PACK THREE BITS IN R4 
*Re NUMERIC FLAG 
0. SCAN ;. -AND TRY AGAIN 
“CLEAR INDEX 

RO, 0. LGCH(RL) :00 0 THE CODES MATCH? 
Ri oe INDE FOR NEXT SEARCH 
R1. #0.CLGT fe THE HE SEARCH DONE? 
0.ERR ; _, OOPS! 
0.LGL1 * RE=-LOOP 
Ri MULT PLY BY TWO 
J0.LGDR(R1) -GO TO PROPER ROUTINE 

/ 

CARRIAGE RETURN CLOSE 

$ REGISTER OPS 

G GO TO SS K 


’ 

: ADDRE 

3 ¢ MODIFY tee OSE, OPEN. NEXT 

: ¢ OPEN RELAteD, 

: 0 OFFSET OFFSET on 

° 
ARCH EFFECTIVE ADDRESS 

: : oe aa EF é 

sLGL MUST EQUAL 2X CHLGT ALWAYS 


;GET VALUE IF Re IS NON-ZERO 


;GO GE QUT 
G0 BACK TO DECODER 
sCLEAR CLOSED BIT 


lee Th URINE Be canta PART 1 MACY11 27(732) O1-0CT-76 10:34 PAGE 210 


ZR6HB RROR ROUTINE SEO 0211 
11246 073136 O007&6 BR O.WRD! -GO BACK TO MAIN-LINE 
11248 : PROCESS CARRIAGE RETURN 

115d8 073140 004737 074420 O.CRET: JSR PC,0.TCLS sCLOSE LOCATION 

11251 073144 05270S 900001 BIS #1.R5 -CLOSE EVERYTHING 
Llese 073150 900702 SR 0.00 "RETURN TO DECODER 
11254 : PROCESS <LF>, OPEN NEXT WORD 

11256 973152 004737 074420 6.0P1: JSR PC.0. TCLS ;CLOSE PRESENT CELL 
ll 156 005725 TST (RS)+ ; GENERATE NEW ADDRESS 
11288 073160 004537 074444 0.0P2: JSR $,0,CRLF f R 

ise0 GySie6 074210 JSR 5,0. CADV me H's UT AODRESS 
11261 073172 012700 000057 MOV #7 RO 

11262 073176 004537 074352 JSR S,0.FTYP 

11263 000744 BR 0: WRDI - PROCESS IT 

L1cés : PROCESS t, OPEN PREVIOUS WORD 

11267 073204 004737 O74420 b.BacK: JSR PC.0.TCLS | 

11268 973219 005745 TST (RS) GENERATE NEW ADDRESS 
11269 O732le 0007&2 BR -GO DO THE REST 

11271 ; PROCESS 0, COMPUTE OFFSET 

11595 073214 o06205 b.0FST: ASR RS -GET LOW ORDER BIT 
11274 073216 103737 BCS 0. ERR2 “ERROR IF CLOSED 
11275 073220 ASL RS ; RESTORE WORD 

11276 O732e22 012700 oOo0040 MOV #’ RO ‘TYPE ONE BLANK 

11277 073226 074352 JSR S.0:FTYP : AS A SEPARATOR 
11278 073232 160504 SUB RS, R4 : COMPUTE 

11279 073234 DEC RY 

11280 073236 005304 DEC RY 16 BIT OFFSET 
11281 073240 10400 MOV RY. RO TYPE A 

11282 673242 010402 MOV R4’ Re “SAVE RY 

11283 073244 37 074210 JSR 5,0. CADV ‘NUMBER IN RO - WORD MODE - 
11284 073250 010200 MOV Re, 

11285 ASR RO sDIVIDE BY TWO 

11086 073254 103402 BCS. 0.0F! ‘BRANCH IF ODD 

11287 0673256 004537 074210 JSR ,0.CADV -NUMBER IN RO - BYTE MODE 
11288 Bo aSee 000137 072762 0.0F1: JMP ‘DCD SALL DONE 

11290 : SEARCHES - $MSK HAS THE MASK 

11291 SMSK+2 HAS THE FWA 

11292 SMSK+4 HAS THE LWA 

11294 005201 6.EFF: INC RI -SET EFFECTIVE SEARCH 
11295 073270 OOO40l ~~ BR 0.WDS 

112% 005001 O.WSCH: CLR RI -SET WORD SEARCH 

11297 O7sem4 00s702—~C‘«‘ 0.WDS: TST Re ‘CHECK FOR OBJECT FOUND 
11298 07 001621 O.ERRI: BEQ 0. ERR *ERROR IF NO OBJECT 
11299 073300 013702 072454 MOV 0.MSK+2, Re -SET ORIGIN 

11300 073304 013705 072452 MOV 0.MSK,RS -SET MASK 

11301 073310 005105 COM RS -AND COMPLEMENT IT 


B03 
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ROUTINE 
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177776 
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176874 
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O.RTIT: RIT 


PROCESS P - PROCE 
» ONLY ALLOWED AFT 


b.PROC: TSTB 
BE 
C 
TST 
BEQ 
NOV 
O.PRI: meee 
0.Cl: 





BRK: 
-BK1: 


b 
0 


cantanmenercenaat 





Belly 


SEG 0213 
(SP)+,Re - ‘THRU 
(oes Re 
(SP)+,R4 : 
(35 3t : R 
(SP)+,S ; 
0.UST, -(SP) ; AND STATUS 
0.UPC, -(SP) ; 
‘CHANGED TO RTI FOR 11/20 AND 0S 
ED e 
ER A BREAKPOINT 
0. ;CHECK LEGALITY OF PROCEED 
0. ‘CLE FLAG 
Re a sHRS COUNT SPECIFIED? 
R4,0.CT 
80.STM ST Hiatt E HIGH PRIOR ty 
S.0.RST ;RESTORE 
26.57, ST *SET HIGH PRIORITY 
0.T : SET T-B1T FLAG 
80, T,0.UST  ;3SET T-BIT 
BRK T WHICH SAVES 
Se F NDS OU i Ce OOEeAKho T WAS LEGAL, 
T0 “te COMMAND 


ard Ae er ENTRY 











eS HD aon 
. Cason ar 

ae EAR TT 
ue. 


;ERROR, NOTHING FOUND 
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YPE ERROR ROUTINE SEO 0214 
074336 SR 5.0. TYPE -OUTPUT “BE” FOR BAD ENTRY 
737 000020 o72446 BIC #0:TBT,O.UST. | ;CLEAR OUT ANY POSSIBLE FAKE T-BIT 
] BR 0. “ s AND CONTINUE 
l 072462 0.82: DEC 0. | 
l BGT Cl : JUMP IF REPEAT 
1420 ; 072462 HOV #1,0.CT sRES T COUNT 10 1 
ties l 1 5,0.SVTT ALLOM PROCEED STATUS, R4¥ IS SAFE 
143 TSR g Be tyP TYPE * 
luSe ie MOV 3 ARI RO ‘GET ADDRESS OF BREAK 
ie 074210 0.83: ISR 5,0. CADV sTYPE ADDRESS 


| .0CO $65 T0 DECODER 


; SAVE REGISTERS RO-R& IN INTERNAL STACK 
bm gy Grasgome—_x RISTR Pa TERK 0 sie 


SELLE ELLELS LLL 


SBVRRZERH BBS 


sessed | HaGRORMeeeS ee 


eae inereae eee ee eee = 
={{[8I— ru 
Baas | Aseepasce = Beas 
33 
OLA 





2 MOV #0.USP. SP -SET TO INTERNAL STACK 
-(SP) 3 Seve 
= j RE ISTERS 
=($8) : THRU 
4 1,-(SP) : S 
440 074470 XXX, = (SP) -PUT SAVED REGISTER ON STACK 


MOV 
MOV 
Tor 
RTS 


pares 
Bioz 
S 


RZ 





S SAVE TELETYPE STATUS 


He He tee grat bem soy gees cy ete 
i ieee bee ee ee 


disa33 032 





HAASE STRESSES 


S RESTORE TELETYPE STATUS 


b.rstt: sR 
a 


re 


B:TesR watt REAOY'ON PRINTOR: eet 
i fa" grence rere, 
0.RSE1: nove fay 6 fis RESTORE REGISTERS 


ion We siento So MORO GR SYTE METH ONE TRAILING SPACE 
IN RO 


EE EE eee ee 

ator 'e 
££ ES - 

— b= bb po pe 
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=§ 
-< 
iri 

Si 


SERRATE RE SOW URe 





28H 


b— b-- b= b— 6 = FB = FB b= b= 6 = b= 6 = b= = 9 = = = = b-2 0b + = 8-2 b= = b= §-* B= 9B BP B+ Bb Hs Hb + 2 Bo 9-3 & = H = F< H— BB = Os BH HP Pop 


ie Re 2 Bos Bas & 2 he: & > Bs he Bee Ba Boe He ~~ Bo fm Hs Ban H—3 H+ he B09 Be Bw H+ Hae Hs Pw Os Ho Pe Pie Pw EE >> he 


Come oc ee ce 


074210 010246 »CADV: MOV Re, -(SP) ;SAVE Re 








UNTBUS Te ORIVE DIAGNOSTIC PART 1 
OZRSHB.P YPE ERROR ROUTINE 


ek se. TEN 074533 
000060 


14 
11474 
11475 


a5 | 


177770 


-o— 
mares 
a 
Jot 






Bab 


PS 





SRIRRPROS 


£ 
8 


GeanceceEs Ss 


0743S2 






b= B= b= 0+ B= B= b= t= 6 = B= F— F— §- § = F-* bb = tf 0  <  h t=  b e b ee bh et = Bs Be Be fo Bo Fe 2 bo Bh Be bh He 
Bm b+ bb b= fs BB = b= = b= Bh Bs + B= hs be he Bh be Boe BO -* bo bm hb ~~ B= § 0 Bs be bs Pe be Bs PD & =~ Ho P= P-+ H = H-< f-0 Po P< 


SER SS Nr cbn Sees NHS SIRE OE 
aise 
ae 





@ << & 2 bes bee bee 
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MOV #0. BUF +6, RY ‘BUFFER START ADDRESS 
MOV #’°0,-(SP} -CONSTANT ASCII O 


0.SPC: V 
BIC 8177770,Re OCTAL CHARACTER 
ADD ite Q SclI 
RoR RO te Fre 
Q R h I OUREE WHOLE PLACES 
CMP R4, #0. BUF +1 : DONE? 
Bre 76, RO GET Re art BIT 


ai 
(SP)+ pur’ ¢¥ say TO ASCIT 


+ RO 
mY soir 
ny faPie he 
SRS STATE 


b.ceT: 







*ECHO CHARAC 


it “eet On 


eo F 






are FE Ea 

Gee FOR TON 
a 
i Oe 


; ; TYPE ONLY ae shin (CONTAINED IN RO) 


b.FTYP: STB = Gere. 


» TYP I 
MOVB #44. -(SP) 8. INIT THE COUNT 
18 


TOB ;GENERATE NULL FILLER 


b. ryPE 







Pe 











iT WHOLE STRING OF CHARACTERS 
RESTORE BE 


HL P OFF PARITY FROM CHARACTER 
CK FOR 


SEG 0215 


: 
mm 


ll 
il 
11 
11 
1 
1 
i 
1 
1 


: 
: 
‘ 


= 
= 


SBBuS 


c 





TESS SeRLGS 


SEE REM ERSRE A RAS haa ta alia sib t 


3 aaa 


b= & + + bo bs bes Fh ben bh bas x be Ft bs me bas Boe bm Bee B= 2 bs he bs bs bw Bs fe ps Bs Fo FF = ho ne Fs B20 fw ho Bas - 0 Ps = B+ Bw Pie fH = bw pe 
Sb +b 4 hs RF Bs Be he he Be Be FH a Oh ht Bs Oh B20 bn Bat Be Ho 9 b= Os ow Pe Ht & ~ H-2 b= H 0 H—- Ho MH - H © H = H+ Pe H+ p= B= H+ Pie 


~- 


ORT AGNOSTIC PART } 
ERROR ROUTINE 


oer 


i 





137 072742 


= | 
— 


074501 


eS 


=pezezen mee ge gee Bess 


& _— 


aoe 
Peat 
aa 
asi 
ae 








-_ 
~ 
— 
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SEG 0216 


er CEB yee POP STACK 
O.TYPL: ats Re . 


: CLOSE WORD OR BYTE AND EXIT 
: UPON ENTERING, Re HAS NUMERIC 


A.TCLS: ASR RS 
Bes 


FLAG, R4¥Y HAS CONTENTS 
;GET LOW ORDER BIT 


. 0.TC ; JUMP IF ALREADY CLOSED 
B ; IF NO R TYPED THERE IS 
Q Q.CLS1 ;NO CHANGE TO THE OPEN CELL 
MOV R4, JRS ;STORE WORD 
B- Faods it PC 
0.7C: TS 5 ERR ;POP EXTRA CELL FROM STACK 
JMP 0. ;AND SCREAM BLOODY MURDER 


GRE = ROE GUB 


40. CR#1,R3 sLWA <CR,LF> 
a0. CR, RO sLWA <CR,LF># 
80.CR : 

5,0. TYPE - TYPE SOMETHING 





ereeIT FLAG 


;PROCEED FLAG = 0 IF PROCEED NOT ALLOWED 
: F PROCEED ALLOWED 


gave gu = # Ors 





ae 


VOMEO- tf ~ 


; TABLE LENGTH 





et st 


BERR Se aRRE 





b= b= b-- bb = b= b= b= bb b= BB bb — Po Pe Ho Fs Fs 9 fH ow fh -< b> b= 8 -< Be pH = §-= Ho P= Po Hm go 
O—2 BD > bh B+ Hs Pm Be fe Pa HH 2 Pe Bt ew He ho He he Hn Pe Hs fe 


POOOOromno 
= bb = B-> B= p< & =< = pe 
MONO U £ WIE O 


BoAHG.PLI  fyPe ERROR ROUTINE” 
| 
Be 





i -- w+ -— — 
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SEQ 0217 
.BYTE ’P ;NOT 
“BYTE °M 
Pe is mae 
BYTE °8. ss iRERE 
0.LG = .-0.TL 
6. BUF pA +6 CHAR. BUFFER WITH 
; BYTE ' s TRAILING BLANK 
EVEN 
6. TRIC: TRT sTRACE TRAP PROTOTYPE 


s THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
SOBER A 
i 


b. URO: 


ka 


0.USP 
5° PRI; +BY PRIORITY 
0.MSK: : MASK 
*LOW LIMIT 
sHIGH LIMIT 
: BREAK POINT LISTS, ADR1 = AGORESS OF BREAKPOINT,CT = COUNT, 
UIN = CONTENTS 


: 
Rus "8 


-o-| ee eee ee ee eee ee ll OE 6 ee 


eter RKOb ORI AGNOSTIC PART 1 MACYLI 27(732) O1-0CT-76 10:34 PAGE 217 
Pil ERROR ROUTINE SES 0218 


11619 000001 END 


SS A 


——_——— << <== « —_— LOE CE SS ee ee ee ee ee 8 ee 
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ROSS REFERENCE TABLE -- USER SYMBOLS SEO 0219 


S09 5338 


2 
5 








FEE 
oo 
bestestes) 
uw 
e— 
ee 






aORE 





13328 ass 
= ii 9 13 
ADDW1 = 468 S14 
ADDW1O= 468 S23 
ADDL z= ueB «Be 
apie Wee 
ADDW1S= Mt: 528 
abbas s 468 S15 
oe Si 
ADDWS = 468 ete 
es : eb 
AODWB = WES Sel 
RDDWS = 468 S22 
ROE = 468 nh 
= 
ee: So 
ite 2 2 
ANADRe= ' M468 500 
AMNADR3= 468 503 
AMADRY= [ 468 S06 
Bs Nea «GB 
— So 
ea 
y 
468 
468 502 
4693 sos 
4hg 473 
site 5 | * 
Sil2 9233 93358. 
e * ga: 
1 $3368 


4143 8275 8294 8320 


REEEECES 
passiseene 
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IVE 
CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0220 


fe 
3 ois 
oR 
“s 

Z 


8898s 
4673 4840 





= 
Br”. 
BA17 = 001000 
BITO = OO0COl 205 237 256 sB44 
BITOO = OO0001 1S] 
BITOL = 160 
BITOS = ODDO! tie 
= 
BITOY = Spots 147 
BITOS = OO0040 146 
atte = 0001 14S 
atthe = 143 9047 
= 
BTTOS = Ob100n uz 9055 9123 
SITIO = boeDOD 5 47 yg 
= . 
a 1 @ 8 2 8 2 HW am 
13 = oe an on eee? OCOD? 
S vnsaitairt : 
BITia = BaDOEE sii RCC aC ICN Gti Ss 9083 
BITIS = 100000 515 «316 430s sbadsti‘éiz S| OBOCOBY)StsiGH—S—s—«é«HZ~—Ss«éHIO 
BIT? = OOQ004 2 
BITS = OO00I0 cel S40 a5 
BIT’ = 000020 54) 360 273 301 328 
BITS = 000040 5530S (siDi(ité«é‘éit a COCHCté«é‘éi‘ GSC‘ !OCOHSSt«é«SDD 
BITe = 000100 a a a nr 316 
BIT? = 000200 597 Basti(iéiY 57h «= 39,''—i20ti‘“ TC 
BITB = OO0400 508 4s beohsti‘<ié‘iak SS SCSC(‘ié«éz?:Ct;«‘éSsSYS 318 «4332 
BIT9 = 001000 509 +327 «aueSté«‘i BOCOCBGetCéSHSGTSC~Cté«iC“ 333 43091 «4108 
BPIVEC= 000014 
= 
BSERR 474 Sesex ses7x Sees sesse 6179 
SS Bags" 
BSE22 «003314 sege $900 8713 
BYP. be0eus 2847 2855 2873 2877 2881 2885 8347s 
BYPTI6 001 54 Su7se Supe 24eSe >4ua0e Suge 43767 
BYT16 007644 Su748 
BYTIBA 007654 54798 
CALADD O01406 S317% 6188% 6219% 6240 6345 6348 6366 6409 GHIb* 8606 9612 
CALDIF 901400 2g 3901 38338 2964 SOME SHB1H | SENZH 62238 GE23H 7202H 75968 
CCLR = 100000 3351 3360 3371 3383 339% 3403 «#3416 3429 «(344 


ie 
a 
i 





ERSS 
ANE 


ae 
? 

Bs 
oR 
a 


| 
| 
| 





6053 ? 
7798 )«=68035)=—s_s«s BS 14* «=6—BS1S*# 88516% 8517%  8518% 


R 
= 
a 


aster 
oe 
conte 
: 
ca! 
ag 





CYLINV pie7e 
DATAC 0014 
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DZREHB.P11 CROSS REFERENCE TABLE == USER SYMBOLS SEO 0221 
7824 8018 8025 gOS B0S2 8069 
ccYL 001374 Ss7e 37788 879% 30803886 38E7# «3928-3094 GG7DH 7349H 774K BESIH 86998 
cot = 002000 3209 
= 100000 5 2833 «3192 43242 4««3289«s«ea7?siéss2sieeg 7S. S001 
2 ah ee 
|e 2 a eS Seog «in B Fhe SCSce«S5 8B 
CENT = 010000 ugS7 4897-4920. «su 
ekMRe  OS2504 08 e305 364 4 340734353445 
ce US SC TC 
4043 409% 46 4E3—s ayes 4299 4396 4 4u06 
uuel «472s uB14 Wega «4709«««w73s«7B 
4 4933 «4949 «SOLL.sCSS sii3. 5123. ««S149.Ss«S189sS1B? S197 S938 
Lit (| a | 2634 ee e83 6703 5731574 
Bog9 «§979«s«eOS «=H «SOY e077 B260 «E289 
5 a gsm 620 B658 «BEBBSCC«C@?St«CSY 
pea9«B909.Ss«C«éS7?s«w? 701 7085 «= 7ell. Ss 7eelS7BMO 
ere 788 7356 7H 78867 MN 7H 78 7eIG 7a ENN 
CKMR3  OS2566 ohe> 5038 ee es eS ne 
3515 3648 366 3689 3699 3736 3745 3e12 3e22 Sece 4O4e 
wees baS. «eS Ss eae «seg «s sae oops 4034413 
4uugd«4S17,—s«EBP BL? Wie «477 SC«dBReSC«ddS73=s«é‘wdgaR]Ss«NGRG 
e454 ee hr 
coos «=«O«eBS?s«B?Ss BCD Pops boas paa0Ceaas a0? 
e589 6589 6623 6633 6661 pads =o SC«B7Y)«OOeaO2Sts«éD 
390 7010 7020 70M 70sB 7e14 feed 7e43 7281 «7291 
ous? ««7ug7,s«EDBSC«*&S‘I mE? 7675 75953 
7793 se 1 e023 : 
ne O° 63909 «3972S 474 «Ss wNBe «Ss«e71.«s«ge4 «= s«SO2—«SI7S—=Cé«SS LLB 
Sv7 bes © G31 bee © bau? 7033 7eub He «| 7660 7806S 
3496 a4 «3689 «B77 
Suey 34g? s«3E20—s«B 7498 
37634 
B1ai8 
co0016 Sh Sig «Says Sere Sees See’ ceca 901s sell. «sg919 Ss sse4 9909 
™ aug S8teiaECiCG:s(‘iES:C(iigCCSc) (si ewes:s(iécst:C(ié‘éiSCg 10007 
10015 10020 1 10025 10031 10035 10039 10048 10049 10057 lo0088 10070 
1g 19119 toa? toaSe «| tba 
CRLF = 000200 91 i4 
EYLADD” DD14DS 4 4 Wy 472 
2586 ze i+ nr es eS) 
aie ee 
yaes ce7h SS E603 
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OZR6HB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ Oe2e 

DATAOL 001464 S948 

DATAL 001466 Ph 4841 4964 

= 
DCLO. = 000020 eos 
> = 
‘a ES a 
T 4s 

DDUMP 8 O044le 13908 8131 

OF 1 071556 1432 ime) 60s iWSDCi‘i‘ia SS OMG] iC1NG7Sssid1N7Qsi«aSNDisGH7?) Sss3S5BOtC«é«dSSGS—(‘é‘é«SSESG 
ae 1583 1588 1593 1598 1603 1608 1668 1718 £#=#$1743 61768 ~ = 61793 
1 1933 1998 108728 

OFi1O 8=—s_—«sO71716 1479 1800 ©61536)§«=6s«a1SS530—siCéid1Gs—id2BS—C(w§s«édS—Sséd16HBsiéI713"—~—é‘<‘éié«w2BOCdLSBDsCé'BG 
1843 1858 1873 1878 1883 1888 1913 1918 1938 1958 1963 1983 
1988 e033 204 e048 e063 2068 2118 eles 2158 2173 2178 2183 
sie ee38 = «ee eseS 3S CUHK G§:C eS aS ( aeSSC(iC(<$eSSCYNSS 

DF11 971732 1485 1853 1863 1868 1978 1993 2023 2233 2264 109358 

DFi2@ 9071752 1943 

ote 071766 2078 ite 

DFis j SoS Ge e198 =2203 109628 

OF 16 2038 10969% 

DF17 =—ss«O7 e213 109748 

OF18 072056 1818 

DF19 8072076 1823 

eS Ie 

DF 3 071 ae, a 

DF4 071605 0886 

DFS 071616 1613 1618 1643 108918 

DFS 071632 lée3 1608 el13 e21e8B e183 ece43 2248 2254 2269 2274 +2279 2284 2309 
e314 2334 108988 

DF? 071646 1658 10905 

DFS 071656 1505 iate 1825 §=s_-« 1673 1693 1703 1723 §«€6©173306«©61748)0=—s(«a17SBSséd7?73—tsé«d1:7728BTD 
i798 Ss 1 1893 1903 1968 3 e013 2093 2103 2133 e143 = e2lb3 
el ecsg)_iee39—t—sé«é233L'GG e3779—— eH 2399s HOH = 4HO.Ss«109108 

DFS 071676 151 1S2e0 = 1530 =Ss« 1678 1698 1708 17e8 1738 #4317530 «8691763 06«6©1778~=61788 
1803 1813 1898 1908 1973 ee 201 eoss «= 2@l08) = elg8 ss el4Bs22H4 
e304 8=e3e4% e344 862349 e3s9 364 236 e384 862389 «§=6109198 

DH 066504 14930 06=— 1436s 144e@ «L448 1459 1465 1471 £1539 1545 1556 1561 1566 
1871 1576 1581 1586 1896 1601 1606 1646 16565 1665 1716 1741 
1766 861791 hash 1926 1996 2086 e438 e443 2458 105768 10893 10900 
1091e 10921 109 10937 10951 10964 10971 10978 10984 10992 

DH10 8=—s-:« 067103 1691 1696 1701 1706 e061 2066 10624 

DH11 067132 1721 03=— 17esiL73ss«d1:78 

DHieé 067174 1746 =: 1751 1756 =—s «1761 

DH13 Ress 1771 1776 = «1781 1786 

DH14 7313 Aa 1616 #3 i6el 1626 1801 1846 1861 199% 1951 2241 2246 2332 

| porate 164 1806 «=—s«18 1851 106538 

Dui 06741 iBié 1821 10660 

DH17 =. 07466 1631 1636 =: 1651 1661 1981 2156 e161 2166 e171 2176 2181 2236 
e3 e387 10668 

pile 06 14 1483 §=61488 =: 1493 e463 106728 

DH1 06 1551 1826 10676 

DHe 066521 105798 10874 10879 10914 10932 10939 10980 


cee ae — ee ee een 
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OZR6HB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0223 


1831  10680% 
1836 1871 1876  10685# 
oy oe 1971 1976 =—s_ 231 ese? e434? i372 =Ss e377 Ss «106898 














DH20 
he 
DHSS 1069 
pHs 6771 2332, 108974 

0B774 ig8e 1891 1896 1901 1906 1911 1916 2111 2116 2121 2206 e252 
DH26 «OB? 766 2191 219% 2201 107058 
DHe? «ODDIE 
i 10881 10941 

b04 046 «POS! «Ss 20S6)Ssi2337S«s«2362s«i27?)~=SsuO?Ssi«MO?)=Ss2S3s«d17144 

DH31 070101 16888 
DH33 «070143 209% 2101 2106 2126 107258 
DH34 sO70167 167298 
DHSS «070213 107338 
DHE «07041 10947 
DH37 «70323 107468 
Disa 70374 S00 «211. «S«s«OBSsCéRO21«=s«2026 «S031 =Ss« 423107538 
DH39 1? 50a1 «= s362——s«i3G? = sB3G2 «S307 «= Buia BUT?) «= 44107578 
DHY «sO ES72 Gse7e 10916 10925 10988 10996 
DHYO ©” O70NSS 10958 
DH4] ~=s70S2? 31 213 2141 2146 2151 2257 2433 1070s 
Dive 70564 i 10774 
DH43 «sO70B35 ie 107818 
DHY4 = sOOR7E 531 107888 10976 
DHHS «=s70754 107968 
BB | Geto ME? 2e72~«Cee7?~—«C«eRBE«SCRRB?:«OCpeG2«22g7««2302-S«aa07S«(«eale~sleeiie 
DHS «OB EGDM 15886 
DHS1 «071153 1991 108188 
DHES «sO 206 11000 
BH? CREE ipa? 10966 10986 10994 
Ba «Sse En Se 3 CE C2 
bys O67030 1678 1681 1686 1841 2428 106168 

= 
BISPLA bOTiae S438 2530% 2538% 9077% 9099% 
DISPRE 000174 3638 3638 
DLT = 100000 git 603 y7ee yo1g2 S083 $239 S381 S5bb SEE ESZD 6710 OMB 70 
Diy _os0Re4 3431 83388 8341 

= 
DOSEEK pica 7184 «71868 
DOTIN 14108 oEu7e 3342 
DRA = DOO0D! ‘ 5863 
BRTVS » ppetoe seis ‘ % 2% Six 2964 8094 175s 
at Bp 4454 tage Scop Soon” Sard) Seas Bite 
BRIve  OONHSS iubie 
BRIvS  DOMMS 1402¢ 
DRIV’ © DOM4 a4 14038 
DRIVS 004436 14048 
a3 geo ie 

T s BbOONG ecbls 


g 
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DZREHB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0224 
DRPAR = 000010 2408 
DRVNSK= 000007 5208 2737 «2836 
DRVPTR_ 001366 Seat Gbe0x 8969 2979 
= 
= i rs yy 2529 
TYE = 00004 Hn ee 
BT By iSeo sai" 7549) = 533s tyygstusyeosaMeeSCnv2sa7gsH 4 Soy 1509 
isl4 1519 +1524 1529 1535 1540 1546 iss? 1562 1567 1572 1877 
see ise? ieee 197 te0e eg? tess ea? Nese «ites ike? ieve 1877 
less 4«=geR?Ssi«‘ddRS:SC«dRS?~=sé«dtOSSC“‘é TO? OCOPUSC«<‘i::*Cié«‘édR®SC<“i«‘éaTESCO*«*dD‘R?SC<“‘«‘éa‘SSSOCL PMD 
1749 175? 1762 1787 1772 «+1777 «+1782 «1787—Ss«1:792 02 1807 
1812 5 ipze 1837 ie42 1647 1857 1872 1877 ie68 1887 {1893 1897 
5 i907 i913 1917 1922 i927 1932 1937 .1947 {1969 [967 1962 1967 
1972 19a? «1997=S'«s«BaotstC Sis B017,—«(sie?Ss OBES uo C2047 
5 BOB? Bove «Bose S09?) ~=SsBlO2Ss«i1O?)~SsiB117,—«‘“‘i SCD? S34 
Sic? Sie>,ssSie? = sB17BSs«i77?—s«BgS) «=soBlez = Baie «= 3217 © Bas «= 5097 60 Sag «= Saga 
5 $599 5303 5318 3323 3328 533g 3943 534g 3963 5369 45563 0 Steg 
537g «3383s 2388 5398 «2403 «B408.siéisiCiéOCDCS 
Ssuug Susy = S44 108338 
OT10 © o7 1514 168628 
rll O71e32 5227 108654 
DT12 sO71E36 5459 108668 
DT2 so 1 304 14a4 0 1MBS,Ss«dN?~=sé«@S@«~=Ss«BE2~Ssi«dLBE?©«=s«a977~=sé«w9S2~=é«eR SCR ~SOBDCLOG7® 
DTS. «sO 1326 iei2 i617 e642 2207 108408 
pry (071380 ieee Ge? 28 Bie? else ake Berg gore 2eeg ane 2913 18Nae 
1S O71 ies? 1817 +182 eS (5p 7? Bose 5193 5197 5203 10B4bs 
DIE sCOO7416 > © 108508 
DT? 3s ANE 5987 108638 
O18 s«éL4BE S342 «pau? 2S3Ss«233Ss«LOBSEE 
DTS O71476 108598 
D.ACLO= 000100 3168 
D:BRHM= 000100 S038 «3052 «3334 4«s«3383ssM:CS(<‘“<«é‘ikY «O3H77,s«3S10—«iaS2@~=S369S = s3741—«‘i3818 Ss 
wosa, 5986 4oey 458d dupe duso Guan 4223 4e23 708 Gogo 4874 Gaus 
ci22(Siss«=SS196.Ss«dS34BSC*«‘SWE?«~=sCsdS90.Ss«SE33)s«SBEBOCS7O2.—s«dS7SC(i‘ss&eOCWGOLG 
e043 eg 33m 4«Cg93s«wSS)SCE2SCSEE?)SCOBYT «=SsCB70s«SsCéBS 
Ole 70s 7eed7eNa Tea? FSH NGG TRIM 7EHG 78 34 
D.CART= OOD400 SiSe «3062 «3334 «=O s«3383sMDGSCi«HHH:«SCs«@H77—«3S10S«s«8S2 «3695 s«3741S«3818 =~ s«3881 
ups> 4o9s «ey sg?) une «= Gusg«Sss eo) 42s) sree) tag =a 
si22SisB«SS196«SsS34B=S«“SWE?=s«SHSDSs«SE33SCSEEBSOCS702—«s«S74O—s«iS6BOsC#WGOLGS 
043 «BOSE q 335 «b393S«iSS~=SsESCE?CGBYI 908 «6986 
7Ole 7054 eed 7eN9 Tee? 787388 NGG 7OIHFeNS | 7RGL 77837788 
D.DOT = DOD4OD 3918 3212 3233 
D:DOOR= OD0200 ‘ 3 3 3444 3477 «35103652 1 8 386 
yos2 409s «= psy Guos «= 4soSs«igOSs«*dE23)Ss«e23s«*d79B)Ss7gaSs«g7qgSs gu 
co «CSiz2Sti«S SBC 8B 4osue?)=«SU90.—«s«SG33—t«éCS GD 5 s9%8 6013 
B04 p5eg «298 )Sssé33H.«SiC«303)Ss«wSGS«~=SsiEDSCE?)SCSMTSCté«iB7«Ss«wGSt«éSG 
le 407084 —Ss«7e20s«7e]si‘PeB?OC«73GSOSC«‘zRGS:«=OCO7NGs«7BLYSs78MSs7EBLSCO7?7S9—=O«789 
D.DRA = OODD4O Beoe  S0ai 3323 339% 3434 3467 3500 3642 
3851 g toe upqy 0s gp )«Sa73s«*d39S)S WS «Su, u7aSsCS ; 
uesa “Bea clio Siiz Sida Sie 5338 S44? sSus0 Se2a ses 


Se i eS 
- 
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